Bei so einem Code schaudert es mich:
...
Mich macht etwas ganz anderes schaudern:
Delphi-Quellcode:
Status:=false;
repeat
Status:=false;
zufall:=Random(1)+ 20;
...
until Status = False;
...
//Orgie mit if Zufall=...
Abgesehen davon, daß das erste
Status:=false;
völlig überflüssig ist, nimmt Zufall
immer nur den Wert 20 an! Selbst Dein verbesserter Code wird da nichts bringen.