Access Violation - Filter!

Amigos, já fiz de tudo e não consigo descobrir esse erro de access violation, quando dou o comando de: dtmOC.cdsManifestoItem.Filtered := False; ele continua o meu código, mas da a mensagem de erro: segue abaixo parte do meu código:

dtmOC.cdsNFEmunicipio.First;
dtmOC.cdsManifestoItem.Open;

// Dados do(s) município(s) e da(s) NF-e
with dtmOC.cdsNFEmunicipio do
begin
vQtdTotNF := 0;

while not dtmOC.cdsNFEmunicipio.Eof do
begin
with infDoc.infMunDescarga.New do
begin
dtmOC.cdsManifestoItem.First;
dtmOC.cdsManifestoItem.Filtered := False;
dtmOC.cdsManifestoItem.Filter := ''''''''MunDescarga = '''''''' + IntToStr(dtmOC.cdsNFEmunicipioMunDescarga.AsInteger);
dtmOC.cdsManifestoItem.Filtered := True;

cMunDescarga := dtmOC.cdsManifestoItemMunDescarga.AsInteger;
xMunDescarga := RemoverCaracteresEspeciais(dtmOC.cdsManifestoItemMunicipio.AsString);

while not dtmOC.cdsManifestoItem.Eof do
begin
with infNFe.New do
begin
chNFe := dtmOC.cdsManifestoItemChave.AsString;
end;

vQtdTotNF := vQtdTotNF + 1;

dtmOC.cdsManifestoItem.Next;
end;
end;

dtmOC.cdsNFEmunicipio.Next;
end;
end;


se alguém poder me ajudar, não sei mais o que fazer, obrigado!