Cambio al hacer foco con el mouse

[madriles]

hola
prueba con esto, a ver si es lo que quieres

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TLabel(sender).Color:= clBlue;
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TLabel(sender).Color:= clBtnFace;
end;