只要依下列步驟操作就可以了    1.在Form的Private中設個物件變數AutoButton : TButton ;    2.放個TTimer元件,Enabled預設為False;時間設300(自行調整)即0.3秒觸發一次，然後在OnTimer事件中寫入
Begin
  If AutoButton <> nil THen Begin
    AutoButton.Click;
  End;
End;        3.在Button物件的OnMouseDown 事件中寫入
Procedure TForm1.Button1MouseDown(Sender:TObject);
Begin
  AutoButton:= TButton(Sender);
  Timer1.OnTimer(Timer1); // 先執行一次
  Timer1.Enabled := True; // 再開啟計時器,0.3秒後,只要滑鼠按鍵沒放開,又會執行一次
End;    4.在Button物件的OnMouseUp 事件中寫入
Procedure TForm1.Button1MouseUp(Sender:TObject);
Begin
  AutoButton:= nil;
  Timer1.Enabled := False;
End;    4.若還有其他的Button也要有相同的功能，只要將MouseDown及MouseUp事件共用上述兩個事件即可。