//验证密钥 procedure TForm1.CheckABKeyClick(Sender: TObject); begin for i:=0 to 5 do pszKey:=$ff; nResult:=AuthenRFCard(Mifare_DLL_Handle,$60,0,pszKey); Sleep(50); if (nResult=0) then begin showMessage('验证密钥成功!'); Exit; end else begin showMessage('验证密钥失败!'); end; Sleep(50); end;