XPath кстати "тоже я придумал" :-)

http://ru.wikipedia.org/wiki/XPath

"Не буду врать - джентльменов удачи - не я снимал".

Но!

    with ParaX.rAtomEx([k2_tiSubs,
                       k2_tiChildren, k2_tiHandle,  ev_sbtSub,
                       k2_tiChildren, k2_tiByIndex, 0,
                       k2_tiHandle]) do
     if IsValid then
      IevSub(Obj) := l_SubList.Sub[AsLong]
     else
      IevSub(Obj) := l_SubList.Sub[-1];

Ничего "вчерне" не напоминает?

P.S. я КОНЕЧНО "всё читаю по-диагонали" и переосмысливаю... Но по-моему - похоже...