type
 TForm1 = class(TForm)
  Panel1: TPanel;
  MainMenu1: TMainMenu;
  MenuItemFile: TMenuItem;
  MenuItemOpen: TMenuItem;
  MenuItemClose: TMenuItem;
  OpenDialog1: TOpenDialog;
  procedure FormCreate(Sender: TObject);
  procedure MenuItemCloseClick(Sender: TObject);
  procedure MenuItemOpenClick(Sender: TObject);
 private
  {Private declarations}
  procedure HintHandler(Sender: TObject);
 public
  {Public declarations}
end;
var
 Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
 Panel1.Align := alBottom;
 MenuItemFile.Hint := 'File Menu';
 MenuItemOpen.Hint := 'Opens A File';
 MenuItemClose.Hint := 'Closes the Application';
 Application.OnHint := HintHandler;
end;
procedure TForm1.HintHandler(Sender: TObject);
begin
 Panel1.Caption := Application.Hint;
end;
procedure TForm1.MenuItemCloseClick(Sender: TObject);
begin
 Application.Terminate;
end;
procedure TForm1.MenuItemOpenClick(Sender: TObject);
begin
 if OpenDialog1.Execute then
  Form1.Caption := OpenDialog1.FileName;
end;