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: procedure RandomizeIfNeeded(); begin if RandSeed = 0 ...
More...