Warscheinlichkeit & random

[theomega]

nehmen wir mal an p=0,333333 und q=0,666666666
wenn ich jetzt eine zufallszahl zwischen 0 und 1 erstelle und dann über eine if-abfrage machen

Delphi-Quellcode:

if (random<0,333333) then result:=true
else result:=false;

würde das dann passen?

Gruß
TO