Zufals-Boolean erzeugen

[ManuMF]

Hallo,

gibt es eine einfache Möglichkeit, in Delphi einen Zufalls-Boolean zu erzeugen?
Ich wüsste da nur
Boolean := not StrToBool(IntToStr(Random(2))); was aber nicht so gut wäre, u.a. wegen der "Ungenauigkeit" des Zufallsgenerators bei kleinen Zahlen.

Vorstellen könnte ich mir auch etwas in der Richtung

Delphi-Quellcode:

if (Random(1001) > 500) then
  Boolean := true
else
  Boolean := false;

aber ich suche nach einer "vorgefertigten" Lösung.

Danke,
ManuMF