Nachtrag zum Beitrag #45, falls es mal jemand nachbaut...
Es ist noch folgende Änderung notwendig:
Delphi-Quellcode:
procedure Tod._RemoveRef(od: Tod);
begin
if (csDestroying in ComponentState) then
Exit;
if not Assigned(FRefList) then
Exit;
FRefList.Remove(od);
if FRefList.Count = 0 then
FreeAndNil(FRefList);
end;
procedure Tod._RemoveFromRefList(od: Tod);
begin
if (csDestroying in ComponentState) then
Exit;
if Assigned(FRefList) then
FRefList.Remove(od);
end;
(Ich kann den Beitrag leider nicht mehr editieren.)