da esse erro noa achei ainda a solucao
var
I: Integer;
ASerie: String;
AddRow: Boolean;
begin
frSelecionarCertificado := TfrSelecionarCertificado.Create(Self);
try
ACBrNFe1.SSL.LerCertificadosStore;
AddRow := False;
with frSelecionarCertificado.StringGrid1 do
begin
ColWidths[0] := 220;
ColWidths[1] := 250;
ColWidths[2] := 120;
ColWidths[3] := 80;
ColWidths[4] := 150;
Cells[ 0, 0 ] := 'Num.Série';
Cells[ 1, 0 ] := 'Razão Social';
Cells[ 2, 0 ] := 'CNPJ';
Cells[ 3, 0 ] := 'Validade';
Cells[ 4, 0 ] := 'Certificadora';
end;
For I := 0 to ACBrNFe1.SSL.ListaCertificados.Count-1 do
begin
with ACBrNFe1.SSL.ListaCertificados[I] do
begin
ASerie := NumeroSerie;
if (CNPJ <> '') then
begin
with frSelecionarCertificado.StringGrid1 do
begin
if Addrow then
RowCount := RowCount + 1;
Cells[ 0, RowCount-1] := NumeroSerie;
Cells[ 1, RowCount-1] := RazaoSocial;
Cells[ 2, RowCount-1] := CNPJ;
Cells[ 3, RowCount-1] := FormatDateBr(DataVenc);
Cells[ 4, RowCount-1] := Certificadora;
AddRow := True;
end;
end;
end;
end;
frSelecionarCertificado.ShowModal;
if frSelecionarCertificado.ModalResult = mrOK then
cdsEmpresaNS_NOTA_ELE.Text := frSelecionarCertificado.StringGrid1.Cells[ 0,
frSelecionarCertificado.StringGrid1.Row];
finally
frSelecionarCertificado.Free;
end;