Tiene toda la pinta de ser problema con los caracteres Unicode. Recuerda que desde Delphi 2009 los antiguos WideString son los actuales String, y los antiguos String son los actuales AnsiString. Lo mismo pasa con los Char y PChar, que ahora son AnsiChar y PAnsiChar.
Prueba a cambiar las definiciones de la función, a ver si funciona
No tengo a mano Delphi ahora mismo para probarlo.
Un saludo
|