code: ABitmap := TBitmap.Create(); try ACurrImageIndex := GetImageIndex(); Images.GetBitmap(ACurrImageIndex,ABitmap); Images.Insert(ACurrImageIndex,ABitmap, nil); //.... finally System.SysUtils.FreeAndNil(ABitmap); end;
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83733