hint

jeg bruger denne kode til at få vist hint i statusbar:

public
procedure DisplayHint(Sender: TObject);

procedure TVinform.DisplayHint(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:= GetLongHint(Application.Hint); {viser hint i statusbar}
end;

procedure TVinForm.FormCreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
end;

det virker også fint....men problemet er når jeg skifter til form2 og form2 lukkes, så virker hint i statusbar ikke i form1.
koden er også sat i form2.
\"det skal lige siges at form2 uses form1\"