AnimatePNG

[TiGü]

Zitat von EWeiss:

Zurück wird dann 1 Image geliefert das alle Frames enthält.

    Result := BitmapToImage(imgHDC);

Bist du dir sicher, dass sowas der richtige Ansatz ist?

Um es ein die analoge Welt zu übersetzen:
Du packst das Blätter-Paket mit den Bildern aus und klebst alle Bilder hintereinander auf eine lange Papierrolle und versuchst diese abzuspielen.
Das diese Rolle dann zu lang wird, um sie ohne "knittern" und "einreißen" bedienen zu können sollte eigentlich auf der Hand liegen.
Versuche doch mal lieber den Ansatz, einfach die linke obere Ecke zu tackern und das Blätter-Paket wie ein Daumenkino zu bedienen.

Da es dir schwer fällt von solchen abstrakten Sachen zu konkreten Code zu kommen:
Immer nur das jeweils aktuelle Frame decodieren und anzeigen, nach dem Anzeigen dann verwerfen.
Und nicht so schnell wie möglich zeichnen, sondern einfach nur stumpf die eingestellte Framerate.
Stelle mal bewusst das Ausführen der Zeichnenroutine auf 25 FPS bzw. alle 40 ms.