[NumLock]

+AddStrings:

Код:

var
  AStringList: TStringList;
begin
  AStringList:=TStringList.Create;
  AStringList.AddStrings(Memo1.Lines);
  Memo2.Lines.AddStrings(AStringList);
  AStringList.Free;
end;