Números aleatorios en pascal

Generar números aleatorios en pascal.

Esta función genera números aleatorios entre 0 y el valor
de la constante RC. Para ello utiliza el valor de milisegundos
del reloj del sistema.

function Aleatorio: real;
const RA = 536778;  RC = 50;
var tiempo: TimeStamp; semilla: integer;
begin  
 GetTimeStamp(tiempo);
 semilla := tiempo.MicroSecond;
 Aleatorio:= (semilla * RA) mod RC +1;
end;  

Nota: En algunos compiladores de windows la función no funciona bien con MicroSeond y
hay que utilizar Second, en el gpc de linux funciona perfectamente.