Das DeleteFrames macht ja nur Sinn, wenn man das mehrfach neu aufbaut.
In dem Fall müsste man in DeleteFrames aber auch das Array wieder auf 0 setzen.
Und seh gerade, das hier macht in DeleteFrames doch auch keinen Sinn:
Delphi-Quellcode:
if Assigned(Frame) then
FreeAndNil(Frame[i]);
Müsste doch eher sein:
Delphi-Quellcode:
if Assigned(Frame[i]) then
FreeAndNil(Frame[i]);