[[Lepe]]

Algo me he perdido, aquí tienes otra forma:

Código Delphi [-]
procedure TFmRegistro.MiClick(Sender: TObject);
var lbl:TLabel;
begin
  TLabel(Sender).Font.Color:= ClMaroon;

  lbl := TLabel(Sender);
  // aquí tienes el label por si necesitas hacer más cosas con él.

end;

Si todas las etiquetas tienen definido el mismo evento OnClick (en este caso MiClick), Sender es ya un puntero al label donde se hizo clic.

Saludos