@DeddyH
Bei dem Code-Schnipsel in Zeile 10, weil das Object zwar da aber leer war (Siehe unten).
Ich habe es geschafft. Mein Denkfehler (mal wieder).
Es reicht nicht, ein Object anzulegen,
sondern ich muss es auch füllen! Richtig muss also so heißen:
Delphi-Quellcode:
Procedure Speichern;
Var
PNG :TPNGObject;
Begin
// Typen wie vor
Bilder.Add(TBitmap.Create);
// Und jetzt der Inhalt ...
TBitmap(Bilder.Last).Assign(Image);
// Erstes Bild Speichern
PNG.Assign(TBitmap(Bilder.Items[0]));
End;
P.S.
Zitat:
10 Minuten Nachdenken ersparen oftmals 10 Stunden Fehlersuche.
Ich wäre auch nach 10 Stunden ohne probieren nicht drauf gekommen.
DANKE an ALLE