Articles

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;