Array geht nicht

[SaFu]

Hi

kannn mir einer sagen was ich falsch mache

ich möchte die variablen immer um 1 erhöhen lassen und dann im memo ausgeben

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var zahl, i : integer ;
    desk0 : String;
    Desk: array [1..4] of String;

begin
   zahl := StrToInt (Edit1.text) ;

     desk0:= ('DESK-0' +' = TASK(' + Edit1.text + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');

     for i:=0 to  2 do
      begin
       zahl:=zahl +1 ;
       Desk[i]:=('DESK-' +(IntToStr (i +1))+' = TASK(' + (IntToStr (zahl)) + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');
      end;
     Memo3.Lines[1]:=(desk0);
     Memo3.Lines[2]// Desk1
     Memo3.Lines[3]// Desk2
     Memo3.Lines[4] // Desk3
 end;

Gruss sascha