Examples Delphi

Title: Set the statusbar for display hints
You should write ShowHint procedure and set it for onHint event of your application. Don't forget to set StatusBar1.SimplePanel to True.
procedure TForm1.ShowHint(Sender: TObject);
begin
StatusBar1.SimpleText:=Application.Hint;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint:=ShowHint;
end;