GIF Export Frames

uses GIFImage

//

procedure TForm1.Button1Click(Sender: TObject);
var
  GIF		: TGIFImage;
  Bmp		: TBitmap;
  i : integer;
begin
  Gif := TGifImage.Create;
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf24bit;
  if OpenDialog1.Execute then begin
  Gif.LoadFromFile(OpenDialog1.FileName);
  Bmp.Width := Gif.Width;
  Bmp.Height := Gif.Height;
  try
    for i:=0 to Gif.Images.Count-1 do begin
      if GIF.Images[i].Empty then Continue;
        Gif.Images[i].Bitmap.TransparentColor := Gif.Images[i].GraphicControlExtension.TransparentColor;
          if i <> 0 then Gif.Images[i].Bitmap.Transparent := True;
          Gif.Images[i].GraphicControlExtension.Disposal; // DIESE ZEILE NUR BEI UNGLEICHEN FRAMES
          Bmp.Canvas.Draw(0,0, Gif.Images[i].Bitmap);
          Bmp.SaveToFile(IntToStr(i) + '.bmp');
      end;
    finally
    bmp.Free;
    gif.Free;
    end;
  end;
end;