random siempre me da el mismo valor

[ecfisa]

Hola sabueso1010.

Lo que sucede es que Random no genera números aleatorios sino pseudoaleatorios basados en una formula más o menos compleja que casi podríamos decir se asemeja a lo aleatorio.

La función Randomize inicializa el valor del generador en que se basará la fórmula para generar la secuencia con el reloj del sistema. Por lo que cada vez que se ejecute generará una serie diferente.

Si no inicializamos la 'semilla' o la inicializamos a un mismo valor, siempre obtenemos la misma secuencia.
Lo podes verificar con este símple código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  RandSeed:= 15;
  for i:= 1 to 10 do
    ListBox1.Items.Add(IntToStr(Random(100)));
  ListBox1.Items.Add('-----------------');
end;

Saludos.