[SvenSoft]

Добрый день. Пытаюсь упаковать таблицу DBF таким образом :

Код:

procedure PackTable2(param_1: olevariant);
var
  DB: TDBF;
 
begin
 
  //---------- проверим на существование файла, и если не найдем, не будем ничего создавать ----------
  if not FileExists(param_1) then Exit;
 
  //---------- создадим экземпляр TDBF ----------
  DB := TDBF.Create(nil);
 
  try
 
   //---------- откроем файл DBF ----------
   DB.TableName := param_1;
   DB.Exclusive := False;
   //DB.Active := True; // так тоже пробовал, вместо DB.Open;
   DB.Open;
 
   //---------- пакуем таблицу -----------
   DB.PackTable; // на этом моменте возникает трабл.
 
   //---------- закрываем таблицу --------
   DB.Close;
 
  finally
 
   DB.Free;
 
  end;
 
end;

При попытке упаковать таблицу данной процедурой, выдает ошиблку, доходя до метода DB.PackTable;
Что делаю не так, подскажите пожайлуста ?..
подумал что надо к свойству DB.Exclusive := True; применить, но тогда на методе DB.Open; ошибка выскакивает. Почему, не понятно .
Можно сказать, что проблема наверное больше в том, что при установке свойства DB.Exclusive := True; (установка этого свойства дает возможность отпработать без ошибок DB.PackTable; ), не могу открыть файл DB.Open; . Подскажите почему ?