Changes for Lazarus 2.0 fpc 3.0.4
DropSource.pas Line 886 replace line with
{$if FPC_FULlVERSION > 30003}
{$if LCL_FULLVERSION >= 1090000}
IsDraggingImage := ImageList_BeginDrag(FImages.ResolutionByIndex[0].Reference.Handle, FImageIndex,
{$else}
IsDraggingImage := ImageList_BeginDrag(FImages.Handle, FImageIndex,
{$endif}
DropTarget.pas Line 556 replace with
{$if FPC_FULlVERSION > 30003}
{$if LCL_FULLVERSION >= 1090000}
ImageList_SetDragCursorImage( FImages.ResolutionByIndex[0].Reference.Handle, 0, FImageHotSpot.x, FImageHotSpot.y);
{$else}
ImageList_SetDragCursorImage({FImages.Handle} , 0, FImageHotSpot.x, FImageHotSpot.y);
{$endif}
best, michael