Memo in Variable

[Luki206]

Hi,
ich möchte ein Memo in eine Variable 'packen' und diese dann nutzen damit ein anderes Memo mit dem Inhalt gefüllt wird. Ich habe es bis jetzt mit einer Schleife ausprobiert und das sieht so aus:

Delphi-Quellcode:

procedure TFrmHaupt.ActBuchenExecute(Sender: TObject);
var memo, weitergabe : String; i, j : Integer;
begin
 j := 0;
 for i := 10 downto 1 do begin
    memo := (Bestell.Lines[j]);
    ZuZahl.Lines[j] := (memo);
    j := j+1;
 end;
end;

Es funktioniert nicht wirklich und ich habe keine Lust die Memos erst als .txt zu speichern um sie dann im anderen Memo wieder zu laden..
Danke
Luki