Der Titel ist irgendwie unverständlich und aus deinem post kann ich auch nicht so richtig was erkennen, aber falls du die einzelnen Bilder einer Animation suchst, dann schau mal her - nicht schön aber funktioniert:
Delphi-Quellcode:
procedure SeparateAnimation(fileName: string);
var
i: integer;
ga, gi: TGifImage;
gsi: TGifSubImage;
pict: TPicture;
begin
pict := TPicture.Create;
gi := TGifImage.Create;
ga := TGifImage.Create;
ga.LoadFromFile(fileName);
for i := 1 to ga.Images.Count do begin
gsi := ga.Images[Pred(i)];
pict.Bitmap.Assign(gsi);
gi.Assign(pict);
gi.SaveToFile(ChangeFileExt(fileName, Format('.%d.gif', [i])));
end;
ga.Free;
gi.Free;
pict.Free;
end;
Grüße vom marabu