Pascal/Turbo Pascal - numeros aleatorios

Hola a todos, quisiera haceros una consulta.

Necesito generar una sucecion de numeros aleatorios, y para ello tengo pensado usar la funcion Random(x) dentro de un bucle, lo que pasa es cada vez que inicio simpre me genera la misma secuencia. La solucion es utilizar como semilla el reloj de windows, pero el problema esta en que funcion gettime(hora,minuto,segundo,milesima) utiliza variables de tipor WORD y yo necesito que sean de tipo INTEGER para poderlo usar en Random(x).

Alguna idea para poder pasar de WORD a INTEGER?? y la funcion StrToInt solo funciona con strings......

Gracias por adelantado.

Al comenzar el programa ejecuta el procedimiento Randomize;