Hi. Nimm RandomRange aus der
Unit Math
Wenn die Zahl 1 ist, wird das Ergebnis True, ansonsten False.
Also in etwa so:
Delphi-Quellcode:
Case RandomRange(1,6) of
2..6 : ShowMessage('False');
1 : ShowMessage('True');
end;
Man liest sich, Stanlay
Edit: Beispiel hinzugefügt