Delphi-Quellcode:
procedure TSaveObjectList.SetActiveObject(const aObject: TObject);
begin
{ if FObjectList[FPosition]<>Nil then
FObjectList[FPosition].Free; //Vor dem Überschreiben freigeben? funktioniert nicht}
FObjectList[FPosition]:=Nil; //Wenn schon gefüllt - krachts hier!!!
FObjectList[FPosition]:=aObject;
end;
Ganz am Anfang weise ich der Liste Nil zu
FObjectList.Add(Nil);
und das lässt sich auch noch getrost überschreiben.