Procedure ShowMyHint(var hnt:THintWindow; x,y,w,h:integer; title: string);
begin
  if hnt<>nil then hnt.ReleaseHandle;
  hnt:=THintWindow.Create(Form1); // создаем
  hnt.Color:=clWhite; // устанавливаем цвет
  hnt.ActivateHint(rect(x,y,x+w,y+h), title); // показываем
end;

Procedure HideMyHint(var hnt:THintWindow);
begin
  if hnt<>nil then hnt.ReleaseHandle;
end;

var h: THintWindow;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMyHint(h, 0,0,150,16, 'Моя подсказка');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  HideMyHint(h);
end;