diff --git a/jvcl/run/JvTFDays.pas b/jvcl/run/JvTFDays.pas
index 9fe4e32..d8e56f0 100644
--- a/jvcl/run/JvTFDays.pas
+++ b/jvcl/run/JvTFDays.pas
@@ -6833,21 +6833,26 @@ var
   Coord: TJvTFDaysCoord;
 begin
   Cur := 0;
-  with Msg do
-    if HitTest = HTCLIENT then
-    begin
-      Coord := PtToCell(FHitTest.X, FHitTest.Y);
-      case CanDragWhat(Coord) of
-        agsSizeCol, agsSizeRowHdr:
-          Cur := Screen.Cursors[crHSplit];
-        agsSizeRow, agsSizeColHdr:
-          Cur := Screen.Cursors[crVSplit];
-        agsSizeAppt:
-          Cur := Screen.Cursors[crSizeNS];
-        agsMoveAppt:
-          Cur := Screen.Cursors[crDrag];
+  try
+    with Msg do
+      if HitTest = HTCLIENT then
+      begin
+        // Exception happens here during a refresh of appointments and mouse movement
+        Coord := PtToCell(FHitTest.X, FHitTest.Y);
+        case CanDragWhat(Coord) of
+          agsSizeCol, agsSizeRowHdr:
+            Cur := Screen.Cursors[crHSplit];
+          agsSizeRow, agsSizeColHdr:
+            Cur := Screen.Cursors[crVSplit];
+          agsSizeAppt:
+            Cur := Screen.Cursors[crSizeNS];
+          agsMoveAppt:
+            Cur := Screen.Cursors[crDrag];
+        end;
       end;
-    end;
+  except
+    Cur := 0;
+  end;
 
   if Cur <> 0 then
     SetCursor(Cur)