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:
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.