[MaryG]

Решила проблему, организовав всё в цикл, где изменяющаяся в увеличительную сторону переменная - это количество строк в dbf-файле:

Код:

For i := 0 to Dbf.head.lf do begin
    pb.Position := i;
      try
        Read_Dbf(Dbf);
        DecodeDate(Get_Dbf_Date(Dbf, 3), Year, Month, Day);
        if fltDateFrom.Date <= Get_Dbf_Date(Dbf, 3) then begin
// исполняю сохранение и т.д. с запросами и всё такое...
// транзакция сохранения 
       ImportTransaction.Commit;
//закрываем try
      except
      end;
//закрытие файла базы данных dbf
     Close_Dbf(Dbf);