procedure TForm1.SetDragCursor(ImageIndex: Integer);
var
  CursorBitmap, CursorMask: TBitmap;
  IconInfo: TIconInfo;
  Pixel: PRGBQuad;
  i,j: Integer;
begin
 CursorBitmap := TBitmap.Create;
 CursorBitmap.PixelFormat := pf32bit;
 CursorMask := TBitmap.Create;
 try
   ImageList1.GetBitmap(ImageIndex, CursorBitmap);
   CursorMask.SetSize(CursorBitmap.Width, CursorBitmap.Height);
   for i := 0 to (CursorBitmap.Height - 1)
   do begin
      Pixel := CursorBitmap.ScanLine[i];
      for j := 0 to CursorBitmap.Width - 1
      do begin
         if (Pixel.rgbRed = 255) and (Pixel.rgbGreen = 255) and (Pixel.rgbBlue = 255)
         then Pixel.rgbReserved := $00
         else Pixel.rgbReserved := $FF;
         Inc(Pixel);
         end;
      end;
   IconInfo.xHotspot := CursorBitmap.Width div 2;
   IconInfo.yHotspot := CursorBitmap.Height div 2;
   IconInfo.hbmMask := CursorMask.Handle;
   IconInfo.hbmColor := CursorBitmap.Handle;
   Screen.Cursors[crDrag] := CreateIconIndirect(IconInfo);
   Screen.Cursor := crDrag;
 finally
   CursorBitmap.Free;
   CursorMask.Free;
 end;
end;