Длинные подсказки на StatusBar'e

Code:

private

  procedure MyHint(Sender: TObject);

end;

   implementation

{....}

procedure TForm1.FormCreate(Sender: TObject);

begin

  Application.OnHint := MyHint;

  ShowHint           := True;

  Button1.Hint       := 'normal yellow hint|Text in Statusbar';

  Button2.Hint       := 'only yellow hint|';

  Button3.Hint       := '|text only in statusbar';

  Edit1.Hint         := 'same text';

end;

procedure TForm1.MyHint(Sender: TObject);

begin

  StatusBar1.SimpleText := Application.Hint;

end;