ステータスバーへのヒント表示がうまくいかない

フォームが一つの時はよいのですけど2つになるとうまくいかないです。

StatusBar := Screen.ActiveForm.FindComponent('stbHint') as TStatusBar;
if StatusBar <> Nil then begin
  StatusBar.SimpleText := Application.Hint;
end;

とりあえずこうやっています。これで大体うまくいくのですけど後ろのフォームのヒントを前のフォームのステータスバーに出してしまいます。でも実害はないのでこれで。