andere Farbe, wenn Maus auf Label

[Cöster]

Hi!

Ich möchte, dass die Font.Color der Labels rot ist, wenn sich die Maus darauf befindet.

So mach ich es bisher:

Delphi-Quellcode:

procedure TForm1.LabelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  TLabel(Sender).Font.Color := clRed;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Color := clBlack;
  Label2.Font.Color := clBlack;
end;

Aber der Nachteil dieser Lösung ist doch, dass immer, wenn die Maus bewegt wird, und nicht nur dann, wenn sie auf ein Label drauf bzw von einem Label runter bewegt wird, aufgerufen werden.