Have you checked ImagingFmx.pas unit?
It has a functions like:
that can directly convert from Imaging image to FMX bitmap (for FMX1 in XE2 only though).
Resaving image as GIF and loading it to FMX bitmap is a bad idea, you lose the alpha channel.
And it seems to me that you will only have the last frame in FMX image after this code is run.
Try something like this first:
It has a functions like:
Code (pascal) Select
{ Converts image from TBaseImage instance to FMX bitmap. Bitmap must be already instantiated.}
procedure ConvertImageToFmxBitmap(Image: TBaseImage; Bitmap: TBitmap);
that can directly convert from Imaging image to FMX bitmap (for FMX1 in XE2 only though).
Resaving image as GIF and loading it to FMX bitmap is a bad idea, you lose the alpha channel.
And it seems to me that you will only have the last frame in FMX image after this code is run.
Try something like this first:
Code (pascal) Select
FImage.LoadMultiFromFile('E:\espulso.gif');
FmxImage.BeginUpdate;
try
ImagingFmx.ConvertImageToFmxBitmap(FImage, FmxImage.Bitmap);
finally
FmxImage.EndUpdate;
end;