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!!!
