procedure TForm1.FormCreate(Sender: TObject);
begin
Application.HintHidePause
:= 2000;
end;
When you use HintHidePause, you use it to specify
a wait time in milliseconds, this should be different from the default
value of 2 and a half seconds.