Delphi Работа с memo

[mega-X-mozg]

Здравствуйте!
Как можно из memo, строковой текст запихнуть в edit в одну строчку заменив "энтеры" каким нибудь символ, допустим пробелом.
Заранее спасибо!

[Kotofff]

procedure TForm2.Button1Click(Sender: TObject);
var
  buf:string;
begin
  buf:=Memo1.Text;
  while pos(#13, buf) <> 0 do
    begin
    Delete(buf, pos(#13, buf), 1);
    Insert(' ', buf, pos(#13, buf));
    end;
  Edit1.Text := buf;
end;

[eoln]

for i := 0 to memo1.lines.count - 1 do edit1.text := edit1.text + ' ' + memo1.lines.strings[i]

P.S. Странно, у меня в Опере кнопки форматирования не работают с утра самого. Приходится в ручную обрамлять тегами

[mega-X-mozg]

Всем спасибо! Все работает.