Cambio al hacer foco con el mouse

[marcoszorrilla]

Lo que apunta madriles, no funcionará porque para ello se debe de pulsar el botón del ratón y soltarlo y según creo la pregunta versa sobre el cambio de color de una etiqueta al pasar sobre ella con el ratón, el código que propongo no me gusta del todo, pero es que el Tlabel, no dispone de eventos para cuando se abandona su superficie con el ratón:

En resumen es una simpleza con evento OnMouseMove del Tlabel aprovechamos para cambiar el color de la etiqueta y con el mismo evento del formulario hacemos lo contrario.

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Font.Color:=ClBlue;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.font.color:=clRed;
end;

Un Saludo.