Всем привет. Какой-то ступор. Вот такой вот код [Code] with spDict do begin ClearData; Open; tmpID := 0; SetLength(ArrDrugs,RecordCount); Index := -1; for i := 0 to RecordCount-1 do begin ... if ((Index mod 100) = 99) and CheckBreak(True) then begin Close; ClearData; ModalResult := mrCancel; Exit; end; pbMain.Position := Trunc((i+1)*100/RecordCount); Next; end; Close; inc(Index); SetLength(ArrDrugs,Index); ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83329