var  hintWnd: THintWindow;

procedure TForm1.ActivateHintNOW( x,y: Integer);
var
  rect: TRect;
begin
  HintTxt := 'qq';
  if hintTxt <> '' then
  begin
    rect := hintWnd.CalcHintRect( Screen.Width, hinttxt, nil);
    rect.Left := rect.Left + x;
    rect.Right := rect.Right + x;
    rect.Top := rect.Top + y;
    rect.Bottom := rect.Bottom + y;
    hintWnd.ActivateHint( rect, hinttxt);
  end;
end;

// Замечание: Не забудьте каждый раз создавать hintWnd:
//   hintwnd:= THintWindow.create(self);

// а затем освобождать его:
//   hintwnd.releasehandle;