Windows,
  SysUtils,
  //System,
  Classes,
  GDifUtil in 'GDifUtil.pas',
  GGlbUtil in 'GGlbUtil.pas',  //снять коментарии тут
  GCryApi in 'GCryApi.pas',
  GConsts in 'GConsts.pas',
  md5 in 'md5.pas',
  GWinCryp,
  CryptoUnit,
  CAPICOM_TLB;

function CheckSignCert(aPStr1: PChar; aSize: Integer; aDat:PChar; dSize:Integer; sSertSN:PChar; sSize:Integer): PChar; stdcall;
var
  s, ss, CertSN: string;
begin
  SetString(Str1, aPStr1, aSize);
  SetString(bStr, aDat, dSize);
  SetString(CertSN, sSertSN, sSize);
  Str2 := 'Не установлен КРИПТО-ПРО';
  if CanCrypto then begin
    try
     { CryptoAPI.SelectCertificate(0, 0, 'Select certificate', 'Certificate:',
      CRYPTUI_SELECT_INTENDEDUSE_COLUMN or CRYPTUI_SELECT_FRIENDLYNAME_COLUMN or
      CRYPTUI_SELECT_LOCATION_COLUMN, 0, 'MY', s);
      CertSN:= CryptoAPI.CertField(s , false, 'SerialNumber');  }
      //StrToFile('c:\temp\Dbufer1.tmp',bStr);
      CryptoAPI.CertVerify(StrToAlg('GOST2001'),
        'MY',
        'MY', bStr,//'c:\temp\Dbufer1.tmp',
        DecodeStr(Str1),
        CertFindCfg('', CertSN, 0, X500Empty, X500Empty),
        CertFindCfg('', CertSN, 0, X500Empty, X500Empty),
        True {(EditCryptSerialNumber.Text <> '')}, False,
        False, False, False, True, False, s, False, nil);
        Str2 := 'Подпись достоверна';
    except
      on E: Exception do
       begin
        Str2 := 'Подпись не достоверна';
        try
          sigData := CoSignedData.Create;
          sigData.Content := bStr;
          sigData.Verify(Str1, true, CAPICOM_VERIFY_SIGNATURE_ONLY);
          Str2 := 'Подпись достоверна';
        except
          on E: Exception do  Str2 := 'Подпись не достоверна';
        end;
      end;
    end;
  end;
  Str2:= Str2 +'@#$';
  aSize := Length(Str2);
  Move(Pointer(Str2)^, Buffer^, ASize);
  Result:= Buffer;
end;