Fórum erro Could not convert variant of type (Null) into type (OleStr) #417555

pessoal tenho este código:
procedure TfrmEntradaProduto.DBGrid1ColExit(Sender: TObject);
var codProduto :integer;
begin
if DBGrid1.SelectedIndex=4 then (Ele faz a contagem certa e quando começa a executar)
begin
cdsProduto.Edit;
codProduto:=strtoint(DBGrid1.Fields[1].Value); //nessa acontece o erro cdsProduto.Locate(idProduto,codProduto,[]);
cdsProdutoEntradaProduto.Value:=cdsProdutoEntradaProduto.Value+dbgrid1.Fields[2].Value;
cdsProdutoDataEntrada.Value:=strtodate(txtdataEntrada.Text);
cdsProdutoSaldo.Value:= cdsProdutoEstoqueInicial.Value+cdsProdutoEntradaProduto.Value;
cdsProdutoDataSaldo.Value:=strtodate(txtdataentrada.Text);
cdsProduto.Post;
end;

end;
bom ele faz a contagem certa e na linha marcada ele apresenta esse erro Could not convert variant of type (Null) into type (OleStr), alguém pode me ajudar.