Function GetSignSignature(ASignText: String): String;
var
  Prov: HCRYPTPROV;
  Hash: HCRYPTHASH;
  BufLen: DWORD;
  AContainerName: string;
begin
  AContainerName := DoChooseContainer;
  // Подключаемся к провайдеру
  CryptAcquireContext(@Prov, PChar(AContainerName), PChar(CP_GR3410_2001_PROV_A),   PROV_GOST_2001_DH, 0);
  // Создаем ХЭШ объект
  CryptCreateHash(Prov, 32798, 0, 0, @Hash);
  // Считаем ХЭШ
  CryptHashData(Hash, PByte(ASignText), Length(ASignText), 0);
  // Определяем длину
  BufLen:=0;
  if not CryptSignHash(Hash, AT_SIGNATURE, nil, 0, nil, @BufLen)
  then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
  end;
  // Забираем
  if BufLen>0 then begin
    SetLength(Result, BufLen);
    CryptSignHash(Hash, AT_SIGNATURE, nil, 0, PByte(Result), @BufLen)
  end;
  CryptDestroyHash(Hash);
  CryptReleaseContext(Prov,0);
End;