var
  AnzLok: integer; {AnzahlLokal : Wird bei jedem Funktionsaufruf erneut (Lokal) erstellt - Wird über die Funktion zurückgeliefert}

  begin
  AnzLok:= 0;
    if inRefWurzel <> nil then {Prüfe ob der Baum/Knoten Existiert}
    begin
      AnzLok:= AnzLok+ 1; {Erhöhe AnzLok um 1}
      if inRefWurzel^.links <> nil then
        AnzLok:= BBKnotenzahl (inRefWurzel^.links) + AnzLok;
        {AnzLok wird mit dem Aktuellen Lokalen Wert und dem Zurueckgelieferten Wert Summiert und somit Hochgezaehlt}
      if inRefWurzel^.rechts <> nil then
        AnzLok:= BBKnotenzahl (inRefWurzel^.rechts) + AnzLok;
    end;
    BBKnotenzahl := AnzLok
    {Die Erste Rekursionsebene ist auch die letzte Rekursionsebene somit steht in AnzahlLok am ende die Anzahl von Knoten, dieses weisen wir noch der Globalen Variable zu}
  end; { BBKnotenzahl }