Das Ereignis "onMouseEnter" und "onMouseLeave" dürfte deinen Anforderungen entsprechen.
Weil das vor kurzem schon mal jemand in einem anderen Forum gefragt hat, hab ich noch meine Screenshoots auf meine HP.
Edit
hier der code.
Code:
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
label1.Color := clred;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Color := cllime;
end;
/Edit
HP
Thomas H.