Problemas con el Unicode

[Neeruu]

Hola a todos...

Ya descubrí el error....

La función me devolvía un array de char, cambie eso por AnsiChar y listo.

Código Delphi [-]
Type
     TVendor = Array[ 0..11 ] Of char;
     ....

     Function GetVendor:TVendor;

Lo cambie asi:

Código Delphi [-]
Type
     TVendor = Array[ 0..11 ] Of AnsiChar;
     ....

     Function GetVendor:TVendor;

Saluda Atte Neeruu!!!