System Delphi

Title: change the display time of the Hints?
procedure TForm1.Button1Click(Sender: TObject);
begin
//default = 2500 ms
Application.HintHidePause := 10000 //10 Sec
end;