uses
  {...,} DBTables;

procedure TForm1.Button1Click(Sender: TObject);
var
  DBFTable: TTable;
  lst: TStringList;
begin
   {...}
   DBFTable := TTable.Create(Self);
   {...}

   // Это действие нужно выполнять пеpед откpытием таблицы
   lst := TStringList.Create;
   lst.Add('LANGDRIVER=db866ru0');
   Session.ModifyDriver('dBASE', lst);
   lst.free;

   DBFTable.Open;
end;