Не собирается Мультиполигон

                         If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].nodeName = 'spatials_elements' then
                          begin
                          SubObjCount := XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes.length;
                          SubObjNum := 0;
                           // Прокручиваем подобъекты в цикле
                           For w := 0 to SubObjCount-1 do
                           begin

                            If w = 0 then
                            begin
                            hSite := mapGetSiteIdent(form_main.mvMap.MapHandle,1);
                            hObjKPT := mapCreateSiteObject(form_main.mvMap.MapHandle, hSite,KM_IDDOUBLE2, 0);
                            mapRegisterObject(hObjKPT, 10000017, OL_SQUARE);
                            end;

                            If w > 0 then
                            SubObjNum := mapCreateSubject(hObjKPT);

                            If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].nodeName = 'spatial_element' then
                            begin
                             For r := 0 to XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes.length-1 do
                             begin
                              If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].nodeName = 'ordinates' then
                              begin
                               For t := 0 to XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes.length-1 do
                               begin
                                If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].nodeName = 'ordinate' then
                                begin
                                 For z := 0 to XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes.length-1 do
                                 begin
                                  If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes[z].nodeName = 'x'  then
                                  tmp_X :=  StrToFloat(XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes[z].childNodes[0].nodeValue);
                                  If XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes[z].nodeName = 'y' then
                                  tmp_Y := StrToFloat(XMLDocument.DOMDocument.documentElement.childNodes[a].childNodes[b].childNodes[c].childNodes[d].childNodes[e].childNodes[g].childNodes[h].childNodes[k].childNodes[m].childNodes[n].childNodes[q].childNodes[w].childNodes[r].childNodes[t].childNodes[z].childNodes[0].nodeValue);
                                 end;
                                 mapAppendPointPlane(hObjKPT, tmp_X, tmp_Y, SubObjNum);
                                end;
                               end;
                              end;
                             end;
                            end;
                           end;