procedure TForm1.StatusHint; begin // If Compenent's ShowHint property is True, Hint // will be also shown near the component StatusBar1.Panels[0].Text := Application.Hint; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnHint := StatusHint; end; end.