GIF с прозрачным фоном в BMP (Delphi)

var
  gif:TGIFImage;
  i:Integer;
begin
  gif:=TGIFImage.Create;
  gif.Transparent:=True;
  gif.LoadFromFile('c:\1\2.gif');
  for i := 0 to gif.Images.Count-1 do
  begin
    with GIF.Images[i] do
      if (Transparent) then
      begin
        ActiveColorMap[GraphicControlExtension.TransparentColorIndex] := clWhite;
        GIF.Images[i].Bitmap.SaveToFile('c:\1\'+inttostr(i)+'.bmp');
      end;
  end;
  gif.Free;

анимированные изображения разбивает на кадры