Ich habe den Übeltäter
Delphi-Quellcode:
procedure TDPerson.ClearPicture;
begin
if Assigned(FPicture) then // neu eingeführt
begin
FreeAndNil(FPicture);
FPicture := TBitmap.Create;
DataChanged;
end;
end;
Um Bilder "zu löschen" habe löse ich das Bitmap auf und erzeuge ein neues (Bitmap.Clear gibt es ja nicht).
Diese Methode wurde auch aufgerufen bevor das Bitmap das erste mal erzeugt wurde
Jetzt schließe ich das mit Assigned aus.
Das Hauptproblem scheint geklärt
Danke für die Hilfe!
Stahli