Hint - no statusbar

 private

    procedure ShowHint(Sender : TObject);  // procedure a ser declarada

 public

 end;  

 {SR *.DF}

 procedure TFmenupri.ShowHint(Sender : TObject);

 begin

  Status1.Panels.Items[0].Text := Application.Hint;

 end;

 procedure TFmenupri.FormCreate(Sender : TObject);

 begin

  Application.OnHint := ShowHint; 

 end;