[shoulder]

Hola instale el componente para leer mi smartcard de tarjeta de clave digital uso las sentencias y no hace nada....

procedure TForm1.Button1Click(Sender: TObject);
Var

data, cadena : string;
MyData:String;
sw1, sw2: byte;

begin
MyData:=' ';
sw1:=0;
sw2:=0;
PCSCConnector1.Init;
PCSCConnector1.UseReaderNum := 0;

If not PCSCConnector1.Open then
ShowMessage('Error Abrir');
If not PCSCConnector1.Connect then
ShowMessage('Error Conectar');


If not PCSCConnector1.Connect then
PCSCConnector1.Connect;

PCSCConnector1.GetResponseFromCard('ins', MyData, sw1, sw2)
end;