Abruptes Beenden einer Schleife

[EDatabaseError]

Delphi-Quellcode:

For x:= 0 to (AnzahlPunkte - 1) Do 
   begin 
     If NewxPunkte[Durchlaeufe] = NewxPunkte[x] Then 
     begin 
        If NewyPunkte[Durchlaeufe] = NewyPunkte[x] Then 
           IF Durchlaeufe <> x Then 
           begin 
            PunktMerker:=true; 
            break;
           // Hier soll die For-Schleife abrupt beendet werden und in Zeile mit Anzeige[...]:=0; gesprungen werden. 
           end; 
     end 
     Else PunktMerker:=false; 
   end; 
   Anzeige[NewxPunkte[Durchlaeufe], NewyPunkte[Durchlaeufe]]:= 0;