Возникновение ошибки в ТестКомплите после выполнения действий

CodeGear 2007 (Delphi)
БД Yaffil
TestComplete 7 (7.0.409.7) (DelphiScript)
Приложение откомпилировано как OpenApp(с отладочной информацией).

выполняю код:

procedure test;
var proc,tproc:olevariant; i,j,index:integer; fieldname,s:string;
begin
proc:=Sys.Process('Test_app').VCLObject('wndMain2').Window('MDIClient', '',1).VCLObject('wndJournal').VCLObject('Panel1').VCLObject('PageControl').VCLObject('TabSheet1').VCLObject('Panel12').VCLObject('Panel9').VCLObject('dbgCause');
for i:=0to 140 do begin
s:=proc.datasource.dataset.fields.fields[i].fieldname +'_' +inttostr(proc.datasource.dataset.fields.fields[i].index);
Log.Message(s);
end
end;


В результате выполнения получаю 2 ошибки и в обоих случаях продолжаю выполнение скрипта:

1я:
---------------------------
TestComplete
---------------------------
Unknown name.
fieldname
Unit: "Reestr_del" Line: 282 Column: 59.
Do you want to stop script execution?
---------------------------
Help No Yes
---------------------------


2я
---------------------------
TestComplete
---------------------------
Unknown name.
index
Unit: "Reestr_del" Line: 282 Column: 122.
Do you want to stop script execution?
---------------------------
Help No Yes
---------------------------

В итоге код выполняется (на выходе я имею лог с перечислением названий полей таблички и соответствующие им индексы).
Как бороться с такой ситуацией? Просто вылетание ошибки ТестКомплита в середине скрипта приводит к не выполнению всего теста:( Если кто сталкивался с похожими проблемами поделитесь пожалуйста опытом. :)

Разобрался проблема была в самом цикле я его задавал от 0 до 140 а нужно было до 139. По этой причине мне и выдавало ошибку.