delphi中操作非接触式IC读写不了数据

procedure TForm1.BitBtn5Click(Sender: TObject);
var
  icdev:LongInt;
  snr:Cardinal;
  st:Integer;
  b : Cardinal;
  pwd:string;
  pdata:PChar;
  data:array[0..128] of Char;
begin
  data := #0;
  st := rf_card(icdev,0,@snr);
  if st <> 0 then begin rf_exit(icdev)    end;
  st := rf_load_key(icdev,0,5,'LOTION');
   if st <> 0 then begin rf_exit(icdev)    end;
  st := rf_authentication(icdev,0,5);
  if st <> 0 then begin rf_exit(icdev)    end;  st := rf_read(icdev,20,data);
  if st <> 0 then begin rf_exit(icdev)    end;
  rf_exit(icdev);
end;密码加载、密码校验都OK，就是在读数据时，总部返回12，返回即接收的数据字节错误