[lmikle]

Код:

var
  I : Integer;
  S : String;
begin
  S := '';
  For I := 0 To Memo1.Lines.Count-1 Do
    S := S + Memo1.Lines[i] + ' ';
  Edit1.Text := S;