Erro planilha excel

Galera, estou utilizando o seguinte código para gerar uma planilha excel:

QryRptSAC.First;

///// Monta planilha
for linha := 0 to QryRptSAC.RecordCount-1 do // Loop no registro
begin

for coluna := 1 to QryRptSAC.FieldCount do // Loop nos atributos
begin
valor := QryRptSAC.Fields[coluna-1].DisplayLabel; //Recebe valor do atributo

ValorNumerico := TryStrToCurr(valor,VL); // Tenta tratar o atributo e converter para ´currency´

if ValorNumerico then // Verifica conversão
begin
excel.cells[ linha + 2, coluna] := StrToFloat(valor); // Se ´true´ valor recebe ´currency´
end
else
begin
excel.cells[ linha + 2, coluna] := valor; // Se ´false´ valor recebe ´string´
end;
end;

QryRptSAC.Next;

end;

for coluna := 1 to QryRptSAC.FieldCount do
begin
valor := QryRptSAC.Fields[coluna-1].DisplayLabel;
excel.cells[1,coluna] := valor;
end;

excel.columns.AutoFit;
excel.visible:=true;

Esse código funciona em outros dois sistemas que possuo. Nesse estou recebendo a seguinte mensagem de erro:

ComObj (pas)

Project IGI.exe raised exception class EOleError with message ´Variant does not reference an automation object´. Process stopped.

Alguém sabe o que pode ser?