Calling Randomize too often can make your Random numbers even less random.
Sometimes having the Randomize call in a unit initialization section is not practical.
Hence this little method that I think I first wrote back in the Turbo Pascal days:
[sourcecode language=”Pascal”]
procedure RandomizeIfNeeded();
begin
if RandSeed = 0 then
Randomize();
end;
[/sourcecode]
–jeroen
