Как убрать перевод строки?

[Biowulf86]

Подскажите пожалуйста, как из фрагмента текста, записанного в memo или текстовый файл убрать переводы строк(enter)

например чтоб
ааа
ббб
ввв
ггг
превратилось в
ааа ббб ввв ггг

[Serge_Bliznykov]

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  i : integer;
begin
  s := '';
  for i:=0 to Memo1.Lines.Count-1 do
    s := s + Memo1.Lines.Strings[i] + ' ';
  Memo1.Lines.Text := s;
end;

[Biowulf86]

Огромное спасибо!