Fórum Excluir Registro no fireBird #353742

Ola amigos,

Me passa um erro ao efetua exclusao de registro.

Tenho dua tabelas vinculadas ENTRADA, ENTRADAITEM

criei uma rotina pra deletar a ENTRADAITEM e em seguida a ENTRADA, vinculado os codigo iguais. Até ai tudo bem funciona perfeito, só apos a exclusao me da um erro.

Projeto.raised exception class EaccessViolation with menssage ´Access Violation at Address 0051FD1D in module ´projeto.exe´. Read of address 00000000.

alguem sabe como eliminar o error apos a exclusao

estou usando o seguinte codigo:

procedure TDM.ExcluirEntrada;
begin
{:Deletando os itens}
try
Start;
cdsItemCompra.First;
while not cdsItemCompra.Eof do
begin
with spItemCompra_Del do
begin
Params[0].AsInteger := cdsCompraID_ENTRADA.AsInteger;
Params[1].AsInteger := cdsItemCompraID_PRODUTO.AsInteger;
ExecProc;
end;
cdsItemCompra.Next;
end;
Comit;
except
Rollback;
end;
{Deletando a entrada}
try
Start;
with spCompra_Del do
begin
Params[0].AsInteger := cdsCompraID_ENTRADA.AsInteger;
ExecProc;
Comit;
end;
except
Rollback;
end;
cdsItemCompra.Close;
cdsCompra.Close;

end;
Obrigado galera