Отображение хода выполнения ХП

[tarakan1983]

Здравствуйте.
Есть ХП

begin
  for select id from t1 where aid = :aid
  into :id
  do
    begin
      update t1 set
        zak_it = (zak_p+zak_opt+zak_imp+zak_imp),
        zak_vsego = (zak_p+zak_opt+zak_imp+zak_imp+zak_vpok+zak_proch+zak_peremeshenie),
        rasx_vsego = (rasx_prod+rasx_proch+rasx_vp+rasx_peremeshenie),
        end_o = start_o + (zak_p+zak_opt+zak_imp+zak_imp+zak_vpok+zak_proch+zak_peremeshenie)-(rasx_prod+rasx_proch+rasx_vp+rasx_peremeshenie)
      where id = :id;
    end
end

вызываю эту процедуру в pFIBStoredProc1, скажите,
можно ли как-то отобразить ход процедуры в progressbar?

[come-on]

Реально нет, можно только показать что что то происходит, или фековый прогрес делать.