constructor TMyDragObject.CreateWith(AControl: TControl; il: TImageList; imgidx: Integer);
var Bitmap: TBitmap;
begin
inherited Create(AControl);
FDragImages := TDragImageList.Create(AControl);
AlwaysShowDragImages := True;
Bitmap := TBitmap.Create;
Bitmap.Width := 16;
Bitmap.Height := 16;
Bitmap.Canvas.Changed;
FDragImages.Width := Bitmap.Width;
FDragImages.Height := Bitmap.Height;
ImageList_Draw(il.ResolutionByIndex[0].Reference.Handle, imgidx, Bitmap.Canvas.Handle, 0, 0, ILD_TRANSPARENT);
FDragImages.Add(Bitmap, nil);
Bitmap.Free;
end;