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,