[pesi]

Код:

var
str:tstringlist;
i:integer;
s:string;
begin
s:='ПРИВЕТ';
str:=tstringlist.Create;
for i:=1 to length(s) do str.Add(s[i]);
s:=StringReplace(str.Text, #13#10, '', [rfReplaceAll]);
richedit1.Lines.Add(s);
str.Free;
end;