Fehler? Schleife mit repeat

[Klaus01]

Delphi-Quellcode:

procedure TForm1.TestClick(Sender: TObject);
begin
  for Zahl:= 1 to 1000 do
   begin
    if l=0  then 
      geldschlitz.Click;

    if NOT panel1.Enabled then 
     start.Click;

    Karte1.Click;
    Karte2.Click;
    Karte3.Click;
    Karte4.Click;
    Karte5.Click;
    Karte1.Click;
    Karte2.Click;
    Karte3.Click;
    Karte4.Click;
    Karte5.Click;

   end;
end;

ansonste gehört zu

Repeat auch ein
until <bedingung>

hat Dir der Sir ja schon gesagt.

Grüße
Klaus