Entery w memo

Jak zastąpić entery w memo np na +?

?

var ss:string;
begin
ss:=memo1.text;
ss:=stringreplace(ss,chr(10)+chr(13),'+',[rfreplaceall]);
memo1.text:=ss;
end;

Chodzi mi o to że np mam text
"ble ble
ble ble"

Jak zamienić to na "ble ble+ble ble"

idiotycznie ale moze tak:

var
i : integer;
outputstr : string;
const
znak = '+';
begin
outputstr := '';
for i:=0 to memo1.lines.count-1 do
begin
outputstr := outputstr+memo1.lines[i]+znak;
end;
end;
end;