eine einfachere lösung wäre sicherlich das onmouseenter und onmouseleave event vom label.
zb so.
Delphi-Quellcode:
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
label1.Font.Color:=clred;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clblack;
end;