Имел ввиду несколько другое...
1)Вложение:
1.png [ 105.28 КБ | Просмотров: 8395 ]
Вложение:
2.png [ 33.9 КБ | Просмотров: 8395 ]

2)## Код:
```
nv := Views.OldView(loc, name);
get first element;
WHILE (element # NIL) & ~(element is the right one) DO
      get next element
END;
 m.ReplaceView(v,nv)
```
По поиску см. Overview by Example: ObxContIter