Kleines Prob mit 2Memo Feldern!

[monstaa]

hi
ich hab da ein kleines problem, ich wollte mir nen Nfo maker bauen(will ich auch geranicht weiter ansprechen)
undzwar hab ich nen Tabsheet namens Trackliste da ist ein Memofeld(Memo2), das soll ausgefüllt werden, denn hab ich noch ein TabSheet das ist eine Preview(Memo1) undzwar hab ich das hier stehen
#*#*#*#*#*#*T*R*A*C*K*L*I*S*T*E*#*#*#*#*#*#*#*#*#* #*
#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#* #*

und dazwischen soll die trackliste, das sind die zeilen 26 und 27
ich hab folgendes versucht,

Delphi-Quellcode:

procedure TForm1.Memo2Change(Sender: TObject);
var i,z:integer;
    l:string;
begin
  Memo1.Lines[26] := '#*#*#*#*#*#*T*R*A*C*K*L*I*S*T*E*#*#*#*#*#*#*#*#*#*#*';

  l := IntToStr(24+Memo2.Lines.Count);
  for i := 27 to StrToInt(l) do begin
     for z := 0 to Memo2.Lines.Count do begin
        Memo1.Lines[i] := Memo2.Lines[z];

     end;
  end;
end;

aber das geht nicht wirklich, der macht mir zwar reihen aber da wird nix eingetragen was im Memo2 steht
hat einer nen anderen tipp ??