procedure TForm1.Button1Click(Sender: TObject);
begin
  //default = 2500 ms
  Application.HintHidePause := 10000 //10 Sec
end;