procedure test();
var

  tempSigner: OleVariant;
  tempSigningTimeAttr: OleVariant;
  tempStore: OleVariant;
  tempCertificate, tempCertificates: OleVariant;

const

    CAPICOM_CURRENT_USER_STORE: integer = 2; // 2 - Искать сертификат в ветке "Личное" хранилища.
    CAPICOM_MY_STORE: string = 'My'; // Указываем, что ветку "Личное" берем из хранилища текущего пользователя
    CAPICOM_STORE_OPEN_READ_ONLY: integer = 0; // Открыть хранилище только на чтение

begin

 tempStore:= System.Win.ComObj.CreateOleObject('CAdESCOM.Store'); // Объект описывает хранилище сертификатов
 tempStore.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_READ_ONLY); // Открыть хранилище сертификатов
 tempCertificates:= tempStore.Certificates;
 tempCertificate := tempCertificates.Item[1];
 tempStore.Close;
 //
 tempSigner:= System.Win.ComObj.CreateOleObject('CAdESCOM.CPSigner'); // Объект, задающий параметры создания и содержащий информацию об усовершенствованной подписи.
 tempSigner.Certificate:= tempCertificate;
 tempSigningTimeAttr:= System.Win.ComObj.CreateOleObject('CAdESCOM.CPAttribute');
 tempSigningTimeAttr.Name:= 0;
 tempSigningTimeAttr.Value:= VarFromDateTime(now());
 tempSigner.AuthenticatedAttributes2.Add(tempSigningTimeAttr);
end.