Здравствуйте!
Взял пример из документации по Криптопро. Написан на VB.

Function GetSignerCertificate(SerialNumber)
Set GetSignerCertificate = Nothing
Dim oCert
Dim oStore
Set oStore = CreateObject("CAdESCOM.Store")
oStore.Open CAPICOM_CURRENT_USER_STORE
For Each oCert In oStore.Certificates
If oCert.SerialNumber = SerialNumber Then
Set GetSignerCertificate = oCert
Exit For
End If
Next
End Function

Переписал на Delphi 7.

function getSignnerCertificate(SerialNumber:string):Variant;
Const CAPICOM_CURRENT_USER_STORE = 2;
var
oStore,aa:Variant;
i,kk:integer;
ss:string;
begin
result:=false;
oStore := CreateOLEObject('CadesCOM.Store');
oStore.Open(CAPICOM_CURRENT_USER_STORE);
for i:=0 to oStore.Certificates.Count-1 do
begin
if oStore.Certificates.Item[i].SerialNumber = SerialNumber then
begin
result := oStore.Certificates.Item[i];
Exit;
end;
end;
response:='{"result":"error","errorstring":"Sign Certificate not found"}';
end;

В строке oStore.Certificates.Item[i] - выдает Параметр задан неверно.

Что я не так делаю?

сильно...

Другой вариант, поиск по отпечатку (что надёжнее, чем использовать серийный номер)

а примеры есть?
Или какое-то API не выдает сертификат, который есть, но не имеет ссылки на контейнер (или по каким-то причинам (цепочка\срок действия) был "отброшен")?
Т.е. вводит в заблуждение (нет сертификата, хотя он есть в хранилище)?

поставил в My сторонний, просроченный сертификат - находит.