Función Random ???

[Black_Ocean]

Hola,

Antes de usar la función Random debes inicializarlo con el procedimiento Randomize para que no se repitan los números en forma seguida.

Ej:

Código Delphi [-]
Randomize;
Random(1503);

Por otra parte, te recomiendo que uses la función RandomRange de la librería Math en reemplazo de Random, ya que puedes definir el rango desde y hasta qué número deseas, y tambien por si no quieres considerar el 0, ya que Random considera de acuerdo a esta condición: 0 <= X < Rango

Saludos y buena suerte colega.