this.data0201 = new ByteString("", HEX);

      ["ROOT",             0x0201, 2,    ""],
      ["Identity_1",       0x0201, 0x21, "utf8"],
      ["Identity_2",       0x0201, 0x22, "utf8"],
      ["Identity_3",       0x0201, 0x23, "utf8"],
      ["BirthDate",        0x0201, 0x24, "date"],

UTF8ToString(RawByteString(input))

Var
  Buf: array of Byte;

function Bin2HexExt(const input:string; const spaces: boolean): string;
var
   loop      : integer;
   hexresult : string;
begin
     hexresult := '';
     for loop := 1 to Length(input) do
        begin
        hexresult := hexresult + IntToHex(Ord(input[loop]),2);
        if spaces then hexresult := hexresult + ' ';
        end;
     result := AnsiUpperCase(hexresult);
end;

inputString=pcsc.GetResponseFromCard(Hex2Bin('00b00003a7'))


function TPCSCConnector.GetResponseFromCard(const APdu: string): string;
var
  RetVar : cardinal;
  SBuf   : AnsiString;
  SLen   : cardinal;
  RBuf   : AnsiString;
  RLen   : cardinal;
  Ppci   : Pointer;
begin
SBuf := APdu;
RBuf := StringOfChar(#0,MAXAPDULENGTH);
if Length(SBuf) <= MAXAPDULENGTH then
  begin
  case FAttrProtocol of
    SCARD_PROTOCOL_T0 : Ppci := @SCARD_PCI_T0;
    SCARD_PROTOCOL_T1 : Ppci := @SCARD_PCI_T1;
    else                Ppci := nil;
    end;
  SLen := Length(APdu);
  RLen := Length(RBuf);
  RetVar := SCardTransmit(FCardHandle, Ppci, Pointer(SBuf), SLen, nil, Pointer(RBuf), @RLen);
  if RetVar = SCARD_S_SUCCESS then
    begin
    Result := Copy(RBuf,1,RLen);
    end else
    begin
    Result := '';
    if Assigned(FOnError) then FOnError(Self, esTransmit, RetVar);
    end;
  end;
end;

function SCardTransmit;                   external WinSCardDLL name 'SCardTransmit';

function SCardTransmit;     

   function SCardTransmit(hCard: LongInt; pioSendPci: Pointer; pbSendBuffer: PByte;
                          dwSendLength: DWORD; pioRecvPci: Pointer; pbRecvBuffer: PByte;
                          pcbRecvLength: PDWord): LongInt; stdcall;

(* WindowsXP winscard.dll
   8/23/2001   0:00          93,184  winscard.dll
   Exports from WinSCard.dll
   63 exported name(s), 63 export addresse(s).  Ordinal base is 1.
    Ord. Hint Name
    ---- ---- ----
      60 003B SCardTransmit
    *)

 OutlineCard.prototype.printTLV = function(filenum, tlv, sub) {
  var tt = tlv.getTag() >> 8;
  var ta = tlv.getTag() & 0xFF;
  var value = tlv.getValue();
  if (this.tag_ref.hasOwnProperty([filenum, ta])) {
    var namtp = this.tag_ref[[filenum, ta]];
    var namsect = sub + namtp[0] + "_" + namtp[1];
    if (namtp[2] == "utf8") {
      print(namsect + ": " + value.toString(UTF8));
    } else if (namtp[2] == "date") {
      var s = "" + value.toString(HEX);
      print(namsect + ": " + s.substr(0, 2) + "." + 
        s.substr(2, 2) + "." + s.substr(4));
    }