Crie (e defina) uma Procedure DisplayHint (no Form Principal): StatusBar1.Panels[0].Text := Application.Hint;