TStringList - AddObject-Problem

[emploi]

Kommando zurück

Ganz funktioniert es irgendwie noch nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
     Vater := TMensch.Create('Steffen');
     Vater.Maennlich := true;
     Mutter := TMensch.Create('Kathrin');
     Mutter.Maennlich := False;
     Kind := Mutter.erzeuge_kind(Vater,'Philipp');
    showmessage(Vater.ermittle_geschwister.Text);
end;

sollte ja theoretisch den Namen Philipp ausgeben. Bin auch mal mit einzelaufforderung durch gegangen. irgendwie steht in der Kinder Liste vom Vater und von der Mutter nix drin. Aber "Count" ist 1 ?!

bin ich jetzt ganz doof?