Angrenzende Polygone zum zweiten

Hallo Forum,
nach vielem Rumprobieren habe ich eine Lösung für das Problem gefunden,
wie man in einem Polygon-Shape ein Polygon auswählt und sich dessen
angrenzende Polygone anzeigen lässt. Wers braucht soll nutzen ...

theTheme = theView.FindTheme("XYZ.shp")
theTable = av.GetActiveDoc
theVTab = theTable.GetVTab
theVTab.SetEditable(true)
VKZFField = theVTab.FindField("Gde_nr") ** hier suche ich in einem Feld nach Werten

for each rec in theVTab
VKZFValue = theVTab.ReturnValue(VKZFField, rec)
theBitmap = theVTab.GetSelection
FeldName = "Gde_Nr"
theQuery = "["+FeldName+"]=" + VKZFValue.AsString
theVTab.Query(theQuery, theBitmap,#VTAB_SELTYPE_NEW) *** erste Auswahl
av.GetProject.SetModified(true)
*** durch DISTANCE = 0 findet er die unmittelbar angrenzenden Polygone
theTheme.SelectByTheme(theTheme,#FTAB_RELTYPE_ISWITHINDISTANCEOF,0,#VT AB_SELTYPE_NEW)
theBitmap = theVTab.GetSelection
theQuery = "["+FeldName+"]<>" + VKZFValue.asString
theVTab.Query(theQuery, theBitmap,#VTAB_SELTYPE_AND) *** zweite Auswahl
*** ich möchte in meiner noch zu erzeugenden Tabelle jeweils in einer
*** Spalte das innere Polygon haben, in einer zweiten Spalte
*** die jeweils angrenzenden - was (nebenbei) auch prima geklappt hat
theVTab.UpdateSelection
end

dies ist natürlich nur als Gerüst zu betrachten ...
Gruß Klaus