Pass data from one dbgrid to another and close query form

Good morning friends. I'm a novice in this and I needed help. I have two forms in which I have a dbgrid in each item, the second form is a product query, and the first is a sales form. I managed to make the form2 pass the information to the form1, but when passing the data I need to close my form2, but it has an error when closing

procedure TFrmConsProd.DBGrid1DblClick(Sender: TObject);
begin
dm_dados.sqlconprod.FieldByName('est_codigo').AsInteger;
dm_dados.tbl_saiproducto.Edit;
dm_dados.tbl_saiproductoSAIPROD_CODPRODUTO.AsInteger := dm_dados.sqlconprod.FieldByName('est_codigo').AsInteger;
frmconsprod.close;
end;

end.

Here is an image of the error