diff --git a/examples/dragimagelist/unit1.pas b/examples/dragimagelist/unit1.pas
index 5ab6f27126..152c609d6c 100644
--- a/examples/dragimagelist/unit1.pas
+++ b/examples/dragimagelist/unit1.pas
@@ -95,7 +95,7 @@ begin
   FDragImages.Width := Bitmap.Width;
   FDragImages.Height := Bitmap.Height;
   FDragImages.Add(Bitmap, nil);
-  FDragImages.DragHotspot := Point(Bitmap.Width, Bitmap.Height);
+  FDragImages.DragHotspot := Point(Bitmap.Width div 2, Bitmap.Height div 2);
   Bitmap.Free;
 end;