TCustomImageList.InsertImage и ImageList_Copy

[kapas 0]

Good afternoon!

Has anyone encountered a similar problem?

I make a duplication of the picture in TListImag:

   
         

         ABitmap: = TBitmap.Create ();
         try
             ACurrImageIndex: = GetImageIndex ();
             Images.GetBitmap (ACurrImageIndex, ABitmap);
             Images.Insert (ACurrImageIndex, ABitmap, nil);
// ....
         finally
           System.SysUtils.FreeAndNil (ABitmap);
         end;

At the first call, the picture is inserted at the end of the image collection. On subsequent calls, everything is done correctly.

It seems that something strange happens during the first call to ImageList_Copy (Handle, I, Handle, I + 1, ILCF_SWAP)

What could be the reason and how can it be solved?