anchor.diff:  
     CUSTOM_CUR_FILENAME: array[0..CUSTOM_CUR_CNT-1] of UnicodeString = ('cur1.ani');
   var
  -  KMC: TKMCursor;
  -  I, sx,sy,x,y: Integer;
  -  bm,bm2: TBitmap;
  +  C: TKMCursor;
  +  I, sx, sy, x, y: Integer;
  +  bm, bm2: TBitmap;
     iconInfo: TIconInfo;
     Px: PRGBQuad;
     h : THandle;
  
positive.code:     //no longer valid (replaced by other bitmap or freed). Hence issues with transparency.
      {$IFDEF MSWindows}
        iconInfo.hbmMask  := bm2.Handle;
        Screen.Cursors[Byte(KMC) + COUNT_OFFSET] := CreateIconIndirect(iconInfo);
      {$ENDIF}
      {$IFDEF Unix}
        bm2.Mask(clWhite);
  
negative.code:   bm  := TBitmap.Create; bm.HandleType  := bmDIB; bm.PixelFormat  := pf32bit;
    bm2 := TBitmap.Create; bm2.HandleType := bmDIB; bm2.PixelFormat := pf32bit;
  
    for C := Low(TKMCursor) to kmcPaintBucket do
    begin
      // Special case for invisible cursor
      if C = kmcInvisible then
      begin
        bm.Width  := 1; bm.Height  := 1;
        bm2.Width := 1; bm2.Height := 1;
  