Klassenkonzept

[bucada]

Hallo,

ich bin noch recht neu in der OOP und habe ein kleines Problem.
Ich möchte innerhalb der Klasse eine Instanz derselben Klasse haben.
Ich habe mir das so gedacht:

Delphi-Quellcode:

 
TPersonenClass = class
   name : String;
   alter : Integer;
   Mutter, Vater : TPersonenClass;
   constructor create(name : String;
                      alter : Integer;
                      Mutter, Vater : TPersonClass);
   end;

implementation
   constructor TPersonClass.create(name : String;
                                   alter : Integer;
                                   Mutter, Vater : TPersonClass);
   begin
     self.name := name;
     self.alter := alter;
     // Was muss ich hier eingeben damit es klappt mit Mutter und Vater?
   end;

Nun möchte ich im Hauptprogramm die Personen benutzen.
Dabei soll beispielsweise nach den Deklarationen von 2 Personen folgendes funktionieren (hoffe ich )

Delphi-Quellcode:

  Person1 := TPersonenClass.create('Peter', 16);
  Person2 := TPersonenClass.create('Anna', 38);
  Person2.Mutter := Person1;

Leider meldet Delphi mir einen Fehler bereits bei der Kreierung der Person 1, dass er hinter 16 ein Komma vermisst.
Ich verstehe leider nicht was ich falsch mache. Es wäre nett, wenn mir jemand erklären könnte woran es liegt, oder mir ein Link auf eine Seite, oder Tutorial geben könnte, wo ich das nachlesen könnte.
Ich habe in der Suche leider nichts gefunden. (Vielleicht habe ich aber auch falsche Begriffe eingegeben...)

Vielen Dank im Voraus