TImage EAccessViolation

[Schwedenbitter]

@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