Ayuda con Random

[[Delphius]]

jose91-welva, ¿ya probaste? Yo acabo de probar este código y funciona de lo más bien. Pongo la cantidad de labels que necesito, se asigno a cada uno este evento en el OnClick de modo que todos los labels que intevienen comparten el mismo efecto, sólo que se asigna el valor a quien da la orden mediante el parámetro sender.

Código Delphi [-]
procedure TForm1.Label1Click(Sender: TObject);
begin
  (Sender as TLabel).Caption := IntToStr(Random(100));
end;

Saludos,