[Tips]设置双击时间

　　// Set example:
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin 
　　  // will reset after system start
　　  SetDoubleClickTime(1500);
　　end;
　　
　　// Get example:
　　procedure TForm1.Button2Click(Sender: TObject);
　　begin
　　  ShowMessage(IntToStr(GetDoubleClickTime));
　　end;
　　

　　整理：lzcx