Warum funktioniert rekursiv aufgerufene Procedure nicht?

[Matze]

Delphi-Quellcode:

procedure Tfrm_haupt.abschnitte_erstellen(var kno_a:ixmlnode; var xml_z:ixmlnode);
var i,anz_abschnitte:integer;
const c_Abschnitt='Abschnitt';
      c_TLG='TLG';
begin
  anz_abschnitte:=kno_a.ChildNodes[0].ChildNodes.Count;
  if anz_abschnitte > 1 then
  begin
    for i:=0 to anz_abschnitte-1 do
    begin
      if kno_a.ChildNodes[0].ChildNodes[i].AttributeNodes['Typ'].Text='Knoten' then
      begin
        xml_z.AddChild(c_Abschnitt);
        xml_z.Childnodes[i].Attributes['Bez']:=kno_a.AttributeNodes['Bez'].Text;
      end
      else
      if kno_a.ChildNodes[0].ChildNodes[i].AttributeNodes['Typ'].Text='TLG' then
      begin
        xml_z.AddChild(c_TLG);
        xml_z.Childnodes[i].Attributes['I']:=kno_a.ChildNodes[0].Childnodes[i].AttributeNodes['IR'].Text;
        xml_z.ChildNodes[i].Attributes['Bez']:=kno_a.ChildNodes[0].Childnodes[i].AttributeNodes['Bez'].Text;
      end;
      kno_a:=kno_a.ChildNodes[0].ChildNodes[i];
      xml_z:=xml_z.Childnodes[i];
      abschnitte_erstellen(pkno_abschnitt,abschnitt_knoten);
    end;
  end;
end;

Aufgeräunt.