Problem mit TObjectList in mehreren Ebenen

[bjoern]

Hallo zusammen,

hab ein Problem mit TObjectList und einer Datenstrucktur die versuche damit aufzubauen.

Delphi-Quellcode:

// Aufruf der Funktion add
procedure TForm1.Button1Click(Sender: TObject);
var
  var
   List : TFirstList;
   MyObject : TBaseClass;
begin
  MyObject := TFirstClass.Create;
  List := TFirstList.Create;
  List.Add(MyObject);
end;

//Aufruf in der TFirstList.Add

function TFirstList.Add(const Item: TBaseClass): integer;
var
   First : TFirstClass;
begin
  result := inherited Add(Item);
  First := self.GetItem(Result);
  First.SecondList.Add(Item);
end;

So und wenn ich jetzt die TFirstList verwende und dort das Add aufrufe knallt es beim add der TSecondList, welches ich in der Add Routine der TFirstList aufrufe. Warum?

Ich hab das ganze auch schon mal umgebaut das ich das add meiner TSecondList dort aufrufe wo ich das add von TFirstList aufrufe und das klappt.
Nur nicht wenn ich das verschachtel

Kennt jemand den Grund...

Gruß