procedure TViewPlaceThumb.ImgStartDrag(Sender: TObject; var DragObject: TDragObject);
var
 Bmp: Vcl.Graphics.TBitmap;
 SenderAs: TMakhImage;
begin
 SenderAs := (Sender as TMakhImage);
 try
  Bmp := Vcl.Graphics.TBitmap.Create;
  Bmp.Width := SenderAs.Width;
  Bmp.Height := SenderAs.Height;
  Bmp.Canvas.CopyRect(Bmp.Canvas.ClipRect, SenderAs.Canvas, Bmp.Canvas.ClipRect);
  DragObject := TCustomDragObject.Create(SenderAs, Bmp, SenderAs.Tag, Self.OwnerForm.Handle);
  DragObject.AlwaysShowDragImages := True;
 except
  On E: EInvalidOperation do
  begin
   FreeAndNil(Bmp);
   DragObject  := nil;
   FDragObject := nil;
   Exit;
  end;
 end;
 FDragObject := DragObject;
end;

 TCustomDragObject = class(TDragObjectEx)
 private
  FDragImages:    TDragImageList;
  FImageControl:  TWinControl;
  FMakSeriesView: TMakSeriesViewCustom;
  FTag:           integer;
  FBtm:           Vcl.Graphics.TBitmap;
  FOwnerFormHandle: HWND;
 protected
  function GetDragImages: TDragImageList; override;
 public
  constructor Create(ImageControl: TWinControl; Btm: Vcl.Graphics.TBitmap; Tag: integer; OwnerFormHandle: HWND);
  destructor Destroy; override;
  property Btm: Vcl.Graphics.TBitmap Read FBtm;
  property Tag: integer Read FTag;
  property MakSeriesView: TMakSeriesViewCustom Read FMakSeriesView Write FMakSeriesView;
 end;

{ TCustomDragObject  }

constructor TCustomDragObject.Create(ImageControl: TWinControl; Btm: Vcl.Graphics.TBitmap;
 Tag: integer; OwnerFormHandle: HWND);
begin
 inherited Create;
 FTag := Tag;
 FBtm := Btm;
 FImageControl := ImageControl;
 FOwnerFormHandle := OwnerFormHandle;
end;

destructor TCustomDragObject.Destroy;
begin
 FreeAndNil(FDragImages);
 FreeAndNil(FBtm);
 if Assigned(FMakSeriesView) then
 begin
  FMakSeriesView.DelOverlays([otDragFrame]);
  FMakSeriesView.ResetDDPolygons;
 end;
 inherited;
end;

function TCustomDragObject.GetDragImages: TDragImageList;
var
 Pt: TPoint;
begin
 if not Assigned(FDragImages) then
  //  try
 begin
  FDragImages := TDragImageList.Create(nil);
  FDragImages.Width := Btm.Width;
  FDragImages.Height := Btm.Height;
  Pt := Mouse.CursorPos;
  MapWindowPoints(HWND_DESKTOP, FImageControl.Handle, Pt, 1);
  FDragImages.DragHotspot := Pt;
  FDragImages.Masked := True;
  FDragImages.AddMasked(Btm, clFuchsia);
  //  finally
 end;
 Result := FDragImages;
end;