// **********************************************cFXML
  // Создание цифровой подписи
  procedure TMainForm.BitBtn1Click(Sender: TObject);
  const
    CAPICOM_STORE_OPEN_READ_ONLY = 0;
    CAPICOM_CURRENT_USER_STORE = 2;
    CAPICOM_ENCODE_ANY = -1;
    CAPICOM_ENCODE_BASE64 = 0;
    CAPICOM_ENCODE_BINARY = 1;
    CAPICOM_CERTIFICATE_INCLUDE_CHAIN_EXCEPT_ROOT = 0;  // Saves all certificates in the chain with the exception of the root entity.
    CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN = 1;  // Saves the complete certificate chain.
    CAPICOM_CERTIFICATE_INCLUDE_END_ENTITY_ONLY = 2; // Saves only the end entity certificate.
  var
    oStore, oCertificates, oCer, oCer1, oSigner, oSignerData, oSignerUtil: OLEVariant;
    filStream: TFileStream;
    strStream: TStringStream;
    strStream2: TStringStream;
    cMesShifr: string;
    Buffer: TBytes;
    VBuffer: variant;
    inputString: string;
    dec: TIdDecoderMIME;
  begin
    // Создать COM-объекты
    try
      oStore := CreateOleObject('CAPICOM.Store');
      oSignerData := CreateOleObject('CAPICOM.SignedData');
      oSigner := CreateOleObject('CAPICOM.Signer');
      oSignerUtil := CreateOleObject('CAPICOM.Utilities');
      oStore.Open(CAPICOM_CURRENT_USER_STORE,'My', CAPICOM_STORE_OPEN_READ_ONLY);
   	except
      on oErr: Exception do
      begin
		    ShowMessage('Для подписи запроса электронно-цифровой подписью необходимо наличие установленного компонента Microsoft CAPICOM на вашей рабочей станции.'+chr(13)+
                    'Пожалуйста, обратитесь к системному администратору.'+Chr(13)+
                    Trim(oErr.Message));
		    exit;
      end;
  	end;

    // Записать файл для шифрования в память
  	try
      filStream := TFileStream.Create(EditSignedFile.Text, fmOpenRead);
      strStream := TStringStream.Create;
      try
        filStream.Seek(0, soFromBeginning);
        DynArrayToVariant(VBuffer, Pointer(strStream.Bytes), TypeInfo(TBytes));

        oSignerData.Content := oSignerUtil.ByteArrayToBinaryString(VBuffer);
        ShowMessage('Длина шифруемых данных в байтах: '+IntToStr(Length(oSignerData.Content)));
      except
        on oErr: Exception do
        begin
	    		ShowMessage('Ошибка при записи в SignerData.Content содержимого файла:' + Chr(13) +
                      '"'+EditSignedFile.Text+'"' + Chr(13) +
                      Trim(oErr.Message));
          Exit;
        end;
      end;
  	finally
      strStream.Free;
      filStream.Free;
    end;

    // Выбрать сертификат
	  try
      oCertificates := oStore.Certificates;
		  oCer := oCertificates.Select('Выбор сертификата', 'Пожалуйста, выберите сертификат для подписи.', FALSE);
  	 	oCer1 := oCer.Item[1];
      oSigner.Certificate := oCer1;
      //oSigner.Options := CAPICOM_CERTIFICATE_INCLUDE_CHAIN_EXCEPT_ROOT;
    except
      on oErr: Exception do
      begin
   	    ShowMessage('Сертификат не найден. Пожалуйста, обратитесь к системному администратору.!' + Chr(13) +
                    Trim(oErr.Message));
    		Exit;
      end;
    end;

    // Создать подпись
   	try
        	cMesShifr := oSignerData.Sign(oSigner, TRUE, CAPICOM_ENCODE_BASE64 );
    except
      on oErr: Exception do
      begin
     		ShowMessage('Ошибка при подписи документа. Пожалуйста, обратитесь к системному администратору.' + Chr(13) +
                    Trim(oErr.Message));
        Exit;
      end;
    end;

    // Записать подпись в файл
    try
      filStream := TFileStream.Create(EditSignFile.Text, fmCreate);
      dec := TIdDecoderMIME.Create;
      strStream2 := TStringStream.Create(dec.DecodeString(cMesShifr));
      ShowMessage('Длина подписи в байтах: '+IntToStr(strStream2.Size));

      strStream2.Seek(0, soFromBeginning);
      filStream.Seek(0, soFromBeginning);
      filStream.CopyFrom(strStream2, strStream2.Size);
    finally
      dec.Free;
      strStream.Free;
      strStream2.Free;
      filStream.Free;
    end;
  end;

  // **********************************************cFXML
  // Создание цифровой подписи
  procedure TMainForm.BitBtn1Click(Sender: TObject);
  const
    CAPICOM_STORE_OPEN_READ_ONLY = 0;
    CAPICOM_CURRENT_USER_STORE = 2;
    CAPICOM_ENCODE_ANY = -1;
    CAPICOM_ENCODE_BASE64 = 0;
    CAPICOM_ENCODE_BINARY = 1;
    CAPICOM_CERTIFICATE_INCLUDE_CHAIN_EXCEPT_ROOT = 0;  // Saves all certificates in the chain with the exception of the root entity.
    CAPICOM_CERTIFICATE_INCLUDE_WHOLE_CHAIN = 1;  // Saves the complete certificate chain.
    CAPICOM_CERTIFICATE_INCLUDE_END_ENTITY_ONLY = 2; // Saves only the end entity certificate.
  var
    oStore, oCertificates, oCer, oCer1, oSigner, oSignerData, oSignerUtil: OLEVariant;
    strStream: TStringStream;
    cMesShifr: string;
    Buffer: TBytes;
    VBuffer: variant;
    inputString: string;
    dec: TIdDecoderMIME;
  begin
    // Создать COM-объекты
    try
      oStore := CreateOleObject('CAPICOM.Store');
      oSignerData := CreateOleObject('CAPICOM.SignedData');
      oSigner := CreateOleObject('CAPICOM.Signer');
      oSignerUtil := CreateOleObject('CAPICOM.Utilities');
      oStore.Open(CAPICOM_CURRENT_USER_STORE,'My', CAPICOM_STORE_OPEN_READ_ONLY);
   	except
      on oErr: Exception do
      begin
		    ShowMessage('Для подписи запроса электронно-цифровой подписью необходимо наличие установленного компонента Microsoft CAPICOM на вашей рабочей станции.'+chr(13)+
                    'Пожалуйста, обратитесь к системному администратору.'+Chr(13)+
                    Trim(oErr.Message));
		    exit;
      end;
  	end;

    // Записать файл для шифрования в память
  	try
      strStream := TStringStream.Create;
      try
        strStream.LoadFromFile(EditSignedFile.Text);
        oSignerData.Content := strStream.DataString;
        ShowMessage('Длина подписываемых данных в байтах: '+IntToStr(Length(oSignerData.Content)));
      except
        on oErr: Exception do
        begin
	    		ShowMessage('Ошибка при записи в SignerData.Content содержимого файла:' + Chr(13) +
                      '"'+EditSignedFile.Text+'"' + Chr(13) +
                      Trim(oErr.Message));
          Exit;
        end;
      end;
  	finally
      strStream.Free;
    end;

    // Выбрать сертификат
	  try
      oCertificates := oStore.Certificates;
		  oCer := oCertificates.Select('Выбор сертификата', 'Пожалуйста, выберите сертификат для подписи.', FALSE);
  	 	oCer1 := oCer.Item[1];
      oSigner.Certificate := oCer1;
    except
      on oErr: Exception do
      begin
   	    ShowMessage('Сертификат не найден. Пожалуйста, обратитесь к системному администратору.!' + Chr(13) +
                    Trim(oErr.Message));
    		Exit;
      end;
    end;

    // Создать подпись
   	try
         	cMesShifr := oSignerData.Sign(oSigner, TRUE, CAPICOM_ENCODE_BINARY );
    except
      on oErr: Exception do
      begin
     		ShowMessage('Ошибка при подписи документа. Пожалуйста, обратитесь к системному администратору.' + Chr(13) +
                    Trim(oErr.Message));
        Exit;
      end;
    end;

    ShowMessage('Длина подписи в байтах: '+IntToStr(Length(cMesShifr)));

    // Записать подпись в файл
    try
      strStream := TStringStream.Create(cMesShifr);
      strStream.Seek(0, soFromBeginning);
      strStream.SaveToFile(EditSignFile.Text);
    finally
      strStream.Free;
    end;
  end;

// **********************************************cFXML
// Создание цифровой подписи
procedure TMainForm.BitBtn2Click(Sender: TObject);
var
  filStream: TFileStream;
  Buffer: WideString;
  oStore: CAPICOM_TLB.IStore3;
  oSignedData: CAPICOM_TLB.ISignedData;
  oSigner: CAPICOM_TLB.ISigner;
  oCertificates: CAPICOM_TLB.ICertificates2;
begin
  // Чтение файла
  try
    filStream := TFileStream.Create(EditSignedFile.Text, fmOpenRead or fmShareDenyWrite );
    SetLength(Buffer, filStream.Size);
    filStream.ReadBuffer(Pointer(Buffer)^, filStream.Size);
  finally
    filStream.Free;
  end;

  // Создать COM-объекты
  try
    oStore := CoStore.Create;
    oSignedData := CoSignedData.Create;
    oSigner := CoSigner.Create;
    oStore.Open(CAPICOM_CURRENT_USER_STORE,'My', CAPICOM_STORE_OPEN_READ_ONLY);
 	except
    on oErr: Exception do
    begin
    ShowMessage('Для подписи запроса электронно-цифровой подписью необходимо наличие установленного компонента Microsoft CAPICOM на вашей рабочей станции.'+chr(13)+
                  'Пожалуйста, обратитесь к системному администратору.'+Chr(13)+
                  Trim(oErr.Message));
    exit;
    end;
	end;

  // Содержимое
  oSignedData.Content := Buffer;

  // Выбрать сертификат
  try
    //oStore.Certificates := oCertificates;
    oCertificates := ICertificates2(IDisPatch(oStore.Certificates));
    oCertificates := oCertificates.Select('Выбор сертификата', 'Пожалуйста, выберите сертификат для подписи.', FALSE);
    oSigner.Certificate := CAPICOM_TLB.ICertificate(IDisPatch(oCertificates[1]));
  except
    on oErr: Exception do
    begin
      ShowMessage('Сертификат не найден. Пожалуйста, обратитесь к системному администратору.!' + Chr(13) +
                  Trim(oErr.Message));
  		Exit;
    end;
  end;

  // Создание ЭЦП
  Buffer := oSignedData.Sign(oSigner, TRUE, CAPICOM_ENCODE_BINARY);

  // Запись ЭЦП в файл:
  try
    filStream := TFileStream.Create(EditSignFile.Text, fmCreate );
    filStream.WriteBuffer(Pointer(Buffer)^, SysStringByteLen(PWideChar(Buffer)));
  finally
    filStream.Free;
  end;
end;

 Attribute:=CoAttribute.Create;
 Attribute.Name:=CAPICOM_AUTHENTICATED_ATTRIBUTE_SIGNING_TIME;
 Attribute.Value:=now;  // в UTC нужно...
 Signer.AuthenticatedAttributes.Add(Attribute);