diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 28ca8dfa45..592e9a2ad6 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1688,7 +1688,7 @@ begin
       // always within the time-window
       if (MouseDownCount < 1) or (MouseDownCount > 4) then MouseDownCount := 1;
       inc(MouseDownCount);
-      MouseDownTime := GetTickCount;
+      MouseDownTime := GetTickCount64;
       with LMMouse Do
       begin
         case MouseDownCount of
@@ -1706,13 +1706,13 @@ begin
     begin
       if (MouseDownCount < 1) or (MouseDownCount > 4) then MouseDownCount := 1;
       if (MouseDownWindow = Window)
-          and (GetTickCount - MouseDownTime <= GetDoubleClickTime)
+          and (GetTickCount64 - MouseDownTime <= GetDoubleClickTime)
           and CheckMouseMovement then
         inc(MouseDownCount)
       else
         MouseDownCount := 1;
 
-      MouseDownTime := GetTickCount;
+      MouseDownTime := GetTickCount64;
       MouseDownWindow := Window;
       GetCursorPos(MouseDownPos);
       NotifyUserInput := True;
diff --git a/lcl/interfaces/win32/win32int.pp b/lcl/interfaces/win32/win32int.pp
index 3bd6d89ce7..bbfbab754e 100644
--- a/lcl/interfaces/win32/win32int.pp
+++ b/lcl/interfaces/win32/win32int.pp
@@ -1,4 +1,4 @@
-{ $Id: win32int.pp 39894 2013-01-19 17:42:38Z juha $ }
+{ $Id$ }
 {
  /***************************************************************************
                          WIN32INT.pp  -  Win32Interface Object
@@ -263,7 +263,7 @@ type
 
 var
   MouseDownCount: Integer;
-  MouseDownTime: dword;
+  MouseDownTime: QWord;
   MouseDownPos: TPoint;
   MouseDownWindow: HWND = 0;
   ComboBoxHandleSizeWindow: HWND = 0;