Прямой вызов Hint

Code:

public

{ Public declarations }

h: THintWindow;

procedure TForm1.Button1Click(Sender: TObject);

begin

if h<>nil then

   H.ReleaseHandle;

H:=THintWindow.Create(Form1);

H.ActivateHint(Form1.ClientRect, 'Это всплывающая подсказка');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if h<>nil then

   H.ReleaseHandle;

end;