[shoulder]

Tampoco funciona, me da no declarado TSignedData

Código Delphi [-]
function TfrmPrincipal.verificaassdigital(pathArquivo: string): boolean; 
var 
  lSignedData: TSignedData;      // undeclared indentifier 
  fs : TFileStream; 
  qt : integer; 
  ch : PWideChar; 
  msg : WideString; 
  ok : boolean; 
begin 
  fs := TFileStream.Create (edMsgFile.Text, fmOpenRead); 
  New (ch); 
  repeat 
    qt := fs.Read(ch^, 2); 
    if qt > 0 then 
    msg := msg + ch^; 
  until qt = 0; 
  fs.Free; 
  Dispose (ch); 
 
  lSignedData := TSignedData.Create(self); 
 
  try 
    ok := false; 
    lSignedData.Verify (msg, false, CAPICOM_VERIFY_SIGNATURE_ONLY); 
    msg := lSignedData.Content; 
    ok := true; 
  except 
  on exc: Exception do 
  ShowMessage (exc.Message); 
  end; 
 
  lSignedData.Free; 
 
  if ok then 
    ShowMessage ('Conteúdo validado com sucesso !'); 
  end;