[LACV]

buena tarde si es posible que me ayudes con un error que tengo ; es que estoy usando un formulario frmproductolist lo abro este formulario se abre desde dos formularios distinto uno es frmsalida y el otro frmentrada desde cualquiera de los dos llamo y abro frmproductoslist con este código

Código Delphi [-]
try
    FrmProductoList := TFrmProductoList.Create(application);
    DModulo.reset_producto;
    FrmProductoList.ShowModal;
  finally
    FrmProductoList.Free;
end;

si se abre desde frmentrada y se realiza el procedimiento coloca los datos en EdtProducto.Text de frmentrada y luego voy a frmsalida y mando a cargar los datos enEdtProducto.Text de frmsalida y me lanza un error;

acces violation at addres 00572eddv modulo . read of addres 20202056

para cargar los datos a los formularios lo hago a si desde frmproductolist

Código Delphi [-]

if Assigned(FrmOrdenEntradaCrud) then
  begin

    ShowMessage('entrada');
    Application.ProcessMessages;
    with FrmOrdenEntradaCrud do
    begin
      cantidad := StrToInt(DModulo.UQuery_Producto.FieldByName('N_existencia')
        .AsString);
      if MessageDlg('Ha seleccionado el producto.' + #13#10 +
        DModulo.UQuery_Producto.FieldByName('Producto').AsString + '',
        mtConfirmation, mbYesNo, 0) = mrYes then
      begin
        // cargamos los datos en el formulario

        EdtProducto.Text := DModulo.UQuery_Producto.FieldByName('Producto')
          .AsString + ' ' + DModulo.UQuery_Producto.FieldByName
          ('Referencia').AsString;

      end
      else
      begin
        ShowMessage('El Producto Seleccionado no Tiene 0 de Existencia');
      end;
    end;

  end;

  if Assigned(FrmSalidaCrud) then
  begin

    ShowMessage('salida');
    Application.ProcessMessages;

    with FrmSalidaCrud do
    begin
      cantidad := StrToInt(DModulo.UQuery_Producto.FieldByName('N_existencia')
        .AsString);
      if cantidad > 0 then
      begin
        // cargamos los datos en el formulario

        EdtProducto.Text := DModulo.UQuery_Producto.FieldByName('Producto')
          .AsString + ' ' + DModulo.UQuery_Producto.FieldByName
          ('Referencia').AsString;

      end
      else
      begin
        ShowMessage('El Producto Seleccionado no Tiene 0 de Existencia');
      end;
    end;

  end;

  // cerramos el formulario
  FrmProductoList.Action.Free;
  FrmProductoList.Close;

aaa y en el evento onclose de frmproductolist estoy agregando este codigo

Código Delphi [-]
Action := caFree;

que error estoy cometiendo; les agradezco de antemano