Ich würde nicht das Event OnMouseMove für diesen Zweck missbrauchen, sondern einen
Hint eingeben und das Property
ShowHint auf True setzen.
Nun erscheint das übliche, gelbe Hintfenster mit dem Hilfetext.
Zusätzlich kann man auch alle Hints zentral abgreifen und auf den Statusbar kopieren:
Delphi-Quellcode:
Application.OnHint := Self.HandleOnHint; // Hinttexte in der Statusbar anzeigen
Application.HintHidePause := 5000; // 5 Sek warten bis der Hint wieder verschwindet
procedure THauptForm.HandleOnHint(Sender: TObject);
begin
StatusPanel1.SimpleText := Application.Hint;
end;