[StudentMarat]

Вот решил. Здесь при нажатии на кнопку текст из Memo1 копируется построчно в Memo2

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s2:String;
 s:String;
 i,j:integer;
begin
   try
    s:=memo1.Text;
    s2:='';
    i:=1;
    while (i<=length(s)) do
     begin
      if s[i]<>' ' then
       begin
        s2:=s2+s[i];
       end;
      if s[i]=' ' then
       begin
        Delete(s,1,i);
        if (s2<>'') then
         memo2.Lines.Add(s2);
        s2:='';
        i:=0;
       end;
      inc(i);
     end;
     memo2.Lines.Add(s);
   except
    on e:Exception do
   end;
end;