begin
TToolButton( Sender ).DragMode := dmManual;
if ssLeft in Shift then begin
- TToolButton( Sender ).Down := true;
+// TToolButton( Sender ).Down := true; // \83\8a\83\93\83N\83c\81[\83\8b\83o\81[\82Ì\8b\93\93®\95s\90R\82Ì\8c´\88ö\82Ì\82æ\82¤\82È\82Ì\82Å\83R\83\81\83\93\83g\83A\83E\83g\82µ\82½(2003-dec-02)
if FDragTime = 0 then begin
FDragTime := GetTickCount();
end else begin