Connaitre/fixer le délai du double click de la souris

procedure TForm1.Button1Click(Sender: TObject);
begin
//nécéssite le redémmarage
SetDoubleClickTime(1500);
end;

//connaitre le délai
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(IntToStr(GetDoubleClickTime));
end;