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;