var
Store, Cert1, Cert2: variant;
begin
 Store := CreateOleObject('capicom.Store');
 Store.open(2, 'MY', 0);
 try
  Cert1 := Store.Certificates.select('Выбрать','Выбрать, false);
  Cert2 := Cert1.Item[1];
  Result := cert2.getinfo(0);
 except
  Result := '';
 end;
end;