diff --git a/designer/designerprocs.pas b/designer/designerprocs.pas
index cd10304bf6..a3478ae46c 100644
--- a/designer/designerprocs.pas
+++ b/designer/designerprocs.pas
@@ -185,7 +185,7 @@ var
 begin
   Result.X:=0;
   Result.Y:=0;
-  GetCaretPos(Result);
+  GetCursorPos(Result);
   FormClientOrigin:=Form.ClientOrigin;
   dec(Result.X,FormClientOrigin.X);
   dec(Result.Y,FormClientOrigin.Y);