Set hint's display time

Use HintHidepause property of TApplication type. You should set a waiting time as milliseconds.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.HintHidePause:=1000;
end;