[[duilioisola]]

Código Delphi [-]
var
  CardInformation : WideString;
  pCardInformation : pWideChar;
...
    // Reservo memoria suficiente para la información a leer (255 caracteres "Wide". 2 bytes por caracter).
    GetMem(pCardInformation, 255 * 2);
    try
      ReadCardResult:= MyCompActX.ReadInformation(pCardInformation, 20, 20, 1, 'INGRESE NUM...');
      // Convierto a cadena pascal
      CardInformation := pWideChar(pCardInformation);
    finally
      FreeMem(pCardInformation);
    end;
...