Выполнение процедуры при наведении на иконку в трее

[Luxor]

На форме размещен компонент TrayIcon.
При наведении курсора мыши на иконку приложения в трее - появляется текст, который задан в свойстве Hint.
Как можно сделать, чтобы при наведении на иконку в трее - срабатывала моя процедура и уже по результатам этой процедуры выводился менялся текст счвойства Hint, ну и , соответственно, выводился этот измененный текст.

[WindOfPain]

Код: Выделить всё

procedure TForm1.TrayIcon1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     TrayIcon1.Hint:='X: '+IntToStr(X)+' Y: '+IntToStr(Y);
end;


Можно как-то вот так, через OnMouseMove у TrayIcon1.

[Luxor]

спасибо, заработало. А вот ещё вопросик. Как нибудь цвет фона подсказки можно изменить?