diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 48f84bd1d5..f162ef88ff 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -4046,7 +4046,8 @@ begin
 
   if IsValidDC(DC) then
   begin
-    GetWindowOrgEx(DC, OldPoint);
+    if OldPoint <> nil then
+      GetWindowOrgEx(DC, OldPoint);
     TQtDeviceContext(DC).translate(-NewX, -NewY);
   end;