Als Alternative zu Random kannst du auch die
GUID von Windows verwenden. Nach meinen Erfahrungen sind die resultierenden Zufallswerte recht gut und liefern auch eine brauchbare Statistik. Hier ein Beispiel:
Code:
// get random number via
GUID
function random_GUID(n : integer) : integer;
var
Guid : TGUID;
num : integer;
begin
CreateGUID(
Guid);
num := Trunc(1 + (n*(
Guid.D2/65535)));
if num = 0 then num := 1;
if num = n+1 then num := n;
Result := num;
end;