Fehler? Schleife mit repeat

[Teddy.]

Bei folgendem Text wird mir ein Fehler angezeigt und ich weiß nicht woran das liegt:

Delphi-Quellcode:

procedure TForm1.TestClick(Sender: TObject);
begin
repeat for Zahl:= 1 to 1000 do;
   begin
    if l=0  then geldschlitz.Click;
    if panel1.Enabled=false  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;

ht woran das liegt:

die Fehler lauten: Could not compile unit1.pas
und until expected but end found

[edit=SirThornberry]Delphi-Tags korrigiert. Mfg, SirThornberry[/edit]