ProgresBar для выборки

[art06]

Добрый день.
Предположим есть:

Repaet
Until


Для того чтобы увидеть ход выполнения работы внутри цикла, и для того чтобы увидеть когда выборка закончиться - можно использовать строки

Dial.OPEN('Выполнение @1@@@@@@@');
I_COUNT := Employee1.COUNT;
Repeat
I := I + 1;
Dial.UPDATE(1,ROUND((I / I_COUNT * 10000),1));
Until
-----------------
А, вот если много вложенных :
REPEAT

REPEAT2

REPEAT3
UNTIL3

UNTIL2

UNTIL

как в этом случае написать код - чтобы один прогресс отображал все действия ?????