Никогда не работал с АДО, но думаю гдето должен подгружаться драйвер языка. А на счет функции посмотри OEMToChar, помоему должна подойти.

Попробуй так :



функция
var
Str:PChar;
begin
GetMem(StrOem, длина поля);
OEMToChar(PChar(ADOQuery1.FieldValues('name')),Str);
ShowMessage(String(Str));
FreeMem(Str);
end;
Должно получиться чтото подобное, вобщето я работал в обратном преобразовании символов, все четко работает. Если что гдето чтото подправишь.

Синтаксис есть подробный в хелпе.
1 параметр - строка для преобразования
2 п. - куда преобразовывать.
И все. Если гдето я не прав прошу прощения.