[Delphi] Wiesz w jaki sposub przetransportowac tekst z Memo

Wiesz w jaki sposub moge zrobic cos takiego np:
Mam komponenty Memo1 i Memo2 i jak za pomocom bottona
moge z memo1 przetransportowac tekst do Memo2 :-P

Memo2.Lines:= Memo1.Lines;

memo2.text:=memo1.text;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo2.Lines.Strings[0] := memo1.Lines.Strings[0];
end;

"transportuje" odpowiednią linijke
:-)

Dobra to co kcialem wiedziec to jusz wiem, i dzienki :-/
Teras mÓj edytor HTML ma wyszukiwarke plików :-D