Delphi Seattle：在释放我创建的对象时,我得到一个无效的指针操

当我尝试释放我创建的对象时,会出现问题.

我在这个网站(以及其他网站)中搜索了已经发布的这个问题的答案,但它们都有点不同.根据这些讨论,我的代码应该可行,但显然有些事情是不对的.

所以,我需要帮助……

执行流程：

a)以fmLoanRequest的形式,我基于Class TStorageLoan(TLoan的一个子类)创建一个对象.构造函数将所有类型的值加载到对象的某些属性中(现在显示在此处).

b)稍后,我将对象的地址传递给另一个形式(fmLoan)到适当的公共变量. fmLoan是所有用户与贷款内容交易的形式.请注意,当我们在fmLoan中时,fmLoanRequest保持不变.当fmLoan关闭时,我们将返回fmLoanrequest.

c)显示fmLoan表单(并显示对象中的数据 – 所有工作正常).

d)当关闭fmLoan时,调用一个过程来释放Loan对象 – 如果已分配(参见第二个代码片段的第10行).这似乎工作正常(没有错误).

e)执行下面第14行中的代码时发生’无效指针操作’错误:(如果已分配(oLoan)则oLoan.Free;).

我添加了这一行,以确保如果fmLoan由于某种原因没有处理它,将释放该对象.我意识到这个对象已经被释放了,但是不应该’if Assgned()’防止不必要的释放对象？

来自fmLoanRequest表单的部分代码(我添加了一些行号以供参考)

1  // In form fmLoanRequest 
2  // Create new Loan Object (from a Loan sub-class as it happens)
3    // Create the object here; Object address will be passed to fmLoan later for handling.
4    oLoan := TStorageLoan.Create(iNewLoanID);
5  ...
6  ...
7     fmLoan.oLoan := oLoan; // pass the address to the other form
8     fmLoan.show;
9     // User would click the 'btnClose' at this point. See event code below.
10  ...
11  ...
12    procedure TfmLoanRequests.btnCloseClick(Sender: TObject);
13    begin 
14      if Assigned(oLoan) then oLoan.Free; // <--- ERROR HERE 
15      fmLoanRequests.Close;
16  end;

来自fmLoan表单的部分代码(我添加了一些行号以供参考)

1  //Form fmLoan
2  ...
3    public
4      oLoan : TLoan;
5  ... 
6  // In form fmLoan,I call the following upon closing the Form
7  //                 in the OnClick event of the 'btnClose' button. 
8  Procedure TfmLoan.Clear_Loan_Object;
9  begin
10    if Assigned(oLoan) then oLoan.Free; // <-- THIS WORKS FINE
11  end;

我应该尝试不同的方法吗？

我应该删除该行(第14行 – 第一个代码片段)并希望最好.这完全不是我正确编码的理念！

我是以错误的方式去做的吗？

注意：我显然不使用指针.

任何帮助,将不胜感激！