Jeje, ya te iva a llamar la atencion
dec. Randseed es como su propio nombre indica una "semilla", para un mismo valor de RandSeed la secuencia de numeros "aleatorios" que se genera es la misma. De hecho el metodo Randomize lo unico que hace es asignarle un valor obtenido del reloj del sistema, para intentar que la secuencia originada siempre sea diferente.
Código Delphi
[-]
procedure Randomize;
var
Counter: Int64;
begin
if QueryPerformanceCounter(Counter) then
RandSeed := Counter
else
RandSeed := GetTickCount;
end;