Zufals-Boolean erzeugen

[KLS]

is doch ganz einfach

Delphi-Quellcode:

var
  zufallsboolean : boolean;
begin
  randomize;  //einmaliger aufruf!
  zufallsboolean := bool(random(2));
end;