Показывать подсказки для меню

ОГЛАВЛЕНИЕ    HOME  MAIL

...
public
  procedure OnHintEv(Sender: TObject);
...
procedure TForm1.OnHintEv(Sender: TObject);
begin
  Panel1.Caption := Application.Hint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  N1.Hint := 'Меню файл';
  N2.Hint := 'Открыть файл';
  N3.Hint := 'Закрыть файл';
  Application.OnHint := OnHintEv;
end;