Doppeltes Create?

[internetnavigator]

So:

Delphi-Quellcode:

(*    Quelle
  Rekursive Fassung (geeignet auch zum Ableiten von Suchbäumen etc.) aus:
  http://www.info-seminar.de/KlassenZA/
  Stand: 30.01.2007
  Rückfragen und Verbesserungsvorschläge bitte an
  Joachim Deckers <[e-mail]>

  Bearbeitet entsprechend den "Materialien zu den zentralen Abiturprüfungen
  im Fach Informatik 2008. Objektorientierter Ansatz Delphi",
  http://www.standardsicherung.schulministerium.nrw.de/abitur-gost/fach.php?fach=15
  Änderungen (16.10.07):
  (1) addTreeLeft (addTreeRight) wurden ersetzt durch setLeftTree (setRightTree)
  (2) Die Parameternamen pItem wurden ersetzt durch pObject
*)

{...}

 constructor TBintree.create;                   // leeren Baum erzeugen
 begin
   kenntInhalt:=nil;
   kenntLinkenNachfolger:=nil;
   kenntRechtenNachfolger:=nil;
 end;

 constructor TBintree.create(pObject:TObject);    // Baum mit zwei leeren Teilbäumen erzeugen
 begin
   kenntInhalt:=pObject;
   if pObject<>nil then
   begin
     kenntLinkenNachfolger:=Klassentyp(self.ClassType).create;
     kenntRechtenNachfolger:=Klassentyp(self.ClassType).create;
   end
   else
   begin
     kenntLinkenNachfolger:=nil;
     kenntRechtenNachfolger:=nil;
   end
 end;
{...}