Problem mit Schleife und Zufallszahl

[Privateer3000]

Hallöchen,
für mein "Bürospielchen" ärgert mich folgendes Problem:

Delphi-Quellcode:

auslosung(ausquer:TADOQuery;auskw,jahr:String;anzahl:Integer)
...
if gefun > 3 then begin
i:=0;
...
while (i < anzahl) do begin
   Randomize;
   gezog:=Random(gefun-1);//zufälliger DS
   ausquer.RecNo:=gezog;// DSZeiger setzen
   auswahl.Add(ausquer.fieldbyname('Kollege').AsString+'   '+ausquer.fieldbyname('Phrasenschwein').AsString);
   inc(i);
  end;

Hin und wieder kommt dann eine Fehlermeldung
"Die Argumente sind vom falschen Typ,liegen außerhalb des Gültigkeitsbereiches oder
sind miteinander unvereinbar"
Nun habe ich per Test eingegrenzt dass die Schleife der Übeltäter ist.
Aus einer DB werden DS ermittelt und aus diesen zufällig anzahl x gezogen.
Die Variablen:
anzahl wird der procedure übergeben
gefun ist ein Recordcount
auswahl ist TStrings

Warum klappt das mehrfach dann aber wieder knallts???
Hat jemand eine Idee?

PS: ich weiß, ja ich hab Langeweile....