Me parece que basta usar el evento OnHint de ApplicationEvents:
Código Delphi
[-]
procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
StatusBar1.SimpleText := Application.Hint;
StatusBar1.SimplePanel := (Application.Hint <> '');
end;
Con esto, al pasar el mouse sobre un control con Hint, el StatusBar mostrará el texto en SimplePanel y los paneles se recuperarán tan pronto se pase sobre un control sin Hint o fuera de los controles (siempre y cuando el formulario mismo no tenga Hint).
// Saludos