in repeatschleife zum anfang der schleife springen

[PhöniX]

Delphi-Quellcode:

repeat
     maxiEng := FormVocsEng.TableEng.RecordCount;
     inc(maxiEngCount);
       if maxiEngCount = maxiEng then
        if MessageDlg('Anzahl der abzufragenden Vokabeln nicht erreicht,'+#10#13+
        'weil nicht genügend Vokabeln verfügbar sind.',mtInformation,[mbOK],0) = mrOK then
        begin
        //kommt noch
        end;
     FormVocsEng.TableEng.first;                    
     maxiEng := FormVocsEng.TableEng.RecordCount;   
     randomize;                                     
     zufallszahl := random(maxiEng);                
     repeat                                         
      FormVocsEng.TableEng.next;                    
      inc(SollZahl);                                
     until SollZahl = zufallszahl;                  
     DataSet[datenumber] := FormVocsEng.TableEng.FieldByName('Englisch').AsString;       
     repeat                                         
      dec(dateproof);                                
      if DataSet[dateproof] = DataSet[datenumber] then 
      //wenn dateproof = datenumber dann repeat von vorne
     until dateproof = 0;
     until dateproof = 0;
    end;

hier der code.. guckt mal durch
es soll dannn zum erste repeat gesprungen werden