UnitQESBPCSRandom
DeclarationFunction DelphiRandom: Extended;
DescriptionRemember to use Randomize if you don't want repeatable sequences. Implementation
function DelphiRandom: Extended; begin Result := Random; End;