[Horror]

НЕ не выходит! ошибка тута:
http://savepic.ru/5278.jpg
ну естественно не там а гдето в моем коде вот снова он:
СОХРАНЕНИЕ

Function SaveLevel(Lev%)
 XLevSave=xmlNodeAdd(XLevSave,"Level")
 
  XglSave=xmlNodeAdd(XLevSave,"Globals")
   // Xcol=xmlNodeAdd(XglSave,"int")
   // xmlNodeAttributeValueSet(Xcol,"AmbientLight",Al)
XenSave=xmlNodeAdd(XLevSave,"Entitys")
 ;Стены
 XLevWall=xmlNodeAdd(XenSave,"Wall")
 For o.TWallObject=Each TWallObject
   Node=xmlNodeAdd(XLevWall,"Object")
   xmlNodeAttributeValueSet(Node,"type",o\typ)
   xmlNodeAttributeValueSet(Node,"X",EntityX(o\ent))
   xmlNodeAttributeValueSet(Node,"Y",EntityY(o\ent))
   xmlNodeAttributeValueSet(Node,"Z",EntityZ(o\ent))
   ;NodeP=xmlNodeAdd(Node,"Rotation")
   xmlNodeAttributeValueSet(Node,"Yaw",EntityYaw(o\ent))
 Next
xmlSave("Maps\Level"+Lev+".xml",XLevSave) 
End Function

ЗАГРУЗКА

Function LoadLevel(Lev%)
rootnode = xmlLoad("Maps\Level"+Lev+".xml")
levelnode= xmlNodeFind("Level", rootnode)
worldnode = xmlNodeFind("Entitys", levelnode) 
 
 ;   Стены
LoadLevWall=xmlNodeFind("Wall",worldnode)
WCnt%=xmlNodeChildCount(LoadLevWall)
For w=1 To WCnt
 Node=xmlNodeChild(LoadLevWall,w)
  If xmlNodeNameGet(node) = "Object" Then  
   wtyp=    xmlNodeAttributeValueGet(node, "type")
   wX=     xmlNodeAttributeValueGet(node, "X")
   wY=     xmlNodeAttributeValueGet(node, "Y")
   wZ=     xmlNodeAttributeValueGet(node, "Z")
          wYaw=xmlNodeAttributeValueGet(node, "Yaw")
   CreateModel(wX,wY,wZ,wYaw,wtyp) //Моя функция объект создает где надо
   End If
Next 
End Function

и все таже проблема
если ни одного объекта не сохранил
то при загруки ошибка...