Ficar chamando o método Randomize muitas vezes faz seus números aleatórios ficarem cada vez menos aleatórios e colocar o método em uma seção “initialization” não é uma boa prática, então o interessante e criar um procedimento para testar e gerar números aleatórios somente quando necessário.
procedure RandomizeIfNeeded();
begin
if RandSeed = 0 then
Randomize();
end;