Lazarus, Access и кодировка

[son]

Помогите пожалуйста. В Delphi код работает, в Lazarus нет.

Код: Выделить всё

var cat : variant;
begin
  cat := CreateOleObject('Access.Application');
  cat.NewCurrentDatabase('C:\тест\test.mdb');
end;

Поняно что проблемы с кодировками, но перепробовал Utf8ToAnsii и др не помогает.

[Kitayets]

Код: Выделить всё

cat.NewCurrentDatabase(WideString(UTF8ToSys('C:\тест\test.mdb')));

В MS COM - все строки в WideString, в Lazarus все литералы в UTF-8, в Windows кириллица в cp1251 и UTF-16 внутри.

[son]

Огромное спасибо! Все так и есть.