0 oder 1 ?

[shmia]

Delphi-Quellcode:

Function NullOderEins(Prozent:double):integer;
begin
   if prozent <= 0.0 then
      result := 0
   else if prozent >= 100.0 then
      result := 1
   else if Random > (prozent / 100.0) then
      result := 1
   else
      result := 0;
end;

PS: erstauntlich gleicher Funktionsname, aber ich hab nicht abgeschrieben