[Freez]

Взято из хелпа

Следующая функция возвращает случайное значение типа boolean; возможность того, что возвращаемое значение будет равно 'true' равна 75%:

function randomBoolean: boolean;
begin
if random(4) = 3 then
randomBoolean := false;
else
randomBoolean := true;
end;