[Casimiro Notevi]

¿Y así no funciona en ninguno?

Código Delphi [-]
ReadCardResult:= MyCompActX.ReadInformation(CardInformation, 20, 20, 1, 'INGRESE NUM...');
CardInformation2 := CardInformation^;