var s:string;
    i:Integer;
begin
while memo1.Lines.Count>0 do
begin
  for i:=1 to Memo2.Lines.Count do
  begin
    s:=memo1.Lines.Strings[0]+memo2.Lines.Strings[0];
    memo2.Lines.add(Memo2.Lines.Strings[0]);
    Memo2.Lines.Delete(0);
  end;
memo1.Lines.Delete(0);
end;
end;