Bei Anweisung reagirt das Programm nicht mehr

[PhöniX]

Wen das hier ausgefürt wird, reagiert das Programm nicht mehr:

Delphi-Quellcode:

procedure TMain.OKClick(Sender: TObject);
begin
 inc(datenumber);
 answer.visible := False;
 RightAnswer.visible := False;
 TextRight.Caption := '';
 YesOrNo.Picture := nil;
 NutzerEingabe.Text := '';
 SollZahl := -1;
 case FormKonf.Uebersetzung of
 0: begin
     maxiEng := FormVocsEng.TableEng.RecordCount;
     FormVocsEng.TableEng.first;
     maxiEngCount := 0;
     beginning:
     repeat
     randomize;
     zufallszahl := random(maxiEng);
     RandomCount[datenumber] := zufallszahl;
     for i:= datenumber downto 0 do
      if RandomCount[i] = RandomCount[datenumber] then
       goto beginning;
     until x = true;
     SollZahl := 0;
      repeat
       FormVocsEng.TableEng.next;
       inc(SollZahl);
      until SollZahl = zufallszahl;
    end;
...

Alle Variablen außer x(=Boolean) sind Integer..
Hab 8 Einträge in der Datenbank
Datenbank = Tabelle Paradox 7..

WARUM??