Schleife

[SaFu]

hab heute schon so viele dumme ´Fragen gestellt dann kommts auf die letzte auch nicht mehr an

Wie kann ich die zeilen auch noch hochzählen lassen

Delphi-Quellcode:

//====================Desks Umbennen============================================
procedure TForm1.desk0Bis4Umbenennen;
var zahl,zahl2,a, i : integer ;
    desk0 : String;
    Desk: array [0..99] of String;

begin
   zahl := StrToInt (Edit1.text) ;
   zahl2 := StrToInt (Edit3.text) ;

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

     for i:=0 to  zahl2 do
      begin
       zahl:=zahl +1 ;
       Desk[i]:=('DESK-' +(IntToStr (i +1))+' = TASK(' + (IntToStr (zahl)) + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');

       for a:= 38 to zahl2  do
         begin
          Memo2.Lines[a]:= desk[i];
         end;
      end;
     Memo2.Lines[37]:=(desk0);
end;