Progress Bar в CodeUnit Attain

[Rungart]

Окно -> Dialog
Всего -> Integer
Позиция -> Integer
Таблица -> Record

Окно.OPEN('Прогресс ' + '@1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');

Таблица.reset;
Всего:=Таблица.Count;
Позиция:=0;
if Таблица.find('-') then begin
repeat
Позиция+=1;
Окно.UPDATE(1,ROUND(Позиция/Всего*10000,1));
until Таблица.next()=0;
end;
Окно.CLOSE;