Use HintHidepause property of TApplication type. You should set a waiting time as milliseconds.
procedure TForm1.Button1Click(Sender: TObject); begin Application.HintHidePause:=1000; end;