Как бороться чтобы нормально отображалось Unicode. В BDS2006 все нормально работало. Полагаю в настройках компилятора?

Пример кусока кода:

procedure
var
infoMsg: PChar;

begin
......

infoMsg := SQLite3_ErrMsg(...);

......

raise Exception.CreateFmt('Ошибка открытия базы данных: %s', [infoMsg]);

......
end;

unicode.jpg