Для PB9 работало так - мб поможет
Здесь MS driver
Изменение кодировки предусмотрено

// Создаем ODBC источник для работы с dbf через Microsoft dBase Driver (*.dbf)
string Driver
RegistrySet( "HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\dbfimp","DefaultDir", RegString!, 'C:\PFLEX.RT\DBFIMP')
RegistryGet( "HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Microsoft dBase Driver (*.dbf)","Driver", RegString!, Driver)
// Microsoft dBase Driver (*.dbf)
if Driver='' then // Для Висты предположительно так
Driver='c:\windows\system32\odbcjt32.dll'
end if
RegistrySet( "HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\dbfimp","Driver", RegString!, Driver)
RegistrySet( "HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\dbfimp","Fil", RegString!, "dBase III")
RegistrySet( "HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\dbfimp","DriverId", ReguLong!, 21)
RegistrySet( "HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\dbfimp\Engines\Xbase","CollatingSequence", RegString!, 'ASCII')
// по умолчанию OEM если надо другое менять перед коннектом и возвращать взад после
// обязательно enablebde(false) - enablebde(true) при коннекте см комментарий функции
RegistrySet( "HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\dbfimp\Engines\Xbase","DataCodePage", RegString!, 'OEM')

----------------------------------------

global type enablebde from function_object
end type

forward prototypes
global subroutine enablebde (boolean vkl)
end prototypes

global subroutine enablebde (boolean vkl);// Отключает/включает BDE для операций с dbf файлами
// При установленной BDE драйвер Microsoft Dbase Driver работает некорректно
// Как выход "HKEY_LOCAL_MACHINE\Software\Borland\Database Engine","DLLPATH" модифицируется на время исполнения запроса
// False - выключаем (перед выполнением подключения)
// True - включаем (после выполнения подключения)

string dllpath
dllpath=''
Registryget( "HKEY_LOCAL_MACHINE\Software\Borland\Database Engine","DLLPATH", RegString!, dllpath)
if vkl then
if lower(left(dllpath,9))='fdisable_' then
RegistrySet( "HKEY_LOCAL_MACHINE\Software\Borland\Database Engine","DLLPATH", RegString!, mid(dllpath,10))
end if
elseif len(dllpath)>0 then
RegistrySet( "HKEY_LOCAL_MACHINE\Software\Borland\Database Engine","DLLPATH", RegString!, 'fdisable_'+dllpath)
end if

end subroutine



PS
DataDirect кардинально лучше работал