delphi 中由TObjectList对象Destroy引起内存释放的问题

    delphi 环境 delphi XE7

    今天在完善一个程序的时候，发现一个问题，有个功能重复打开就会触发内存释放错误。导致程序挂掉。以前是正常的，就是加了一个TObjectList变量。

    我的功能是这样的点击一个菜单就弹出一个界面，如果反复的点击该菜单就会造成上面所述的错误。

以下是出错时的代码：

  Tposrecord=class
  private
    v_id:string;
    v_name:string;
  public
    constructor Create(id:string;name:string);
    destructor Destroy; override;
  end;

var
  NodesModify: TNodesModify;
  v_objlist:TObjectList;

implementation

{$R *.dfm}

constructor Tposrecord.Create(id: string; name: string);
begin
  Self.v_id:=id;
  Self.v_name:=name;
end;

destructor Tposrecord.Destroy;
begin
  inherited Destroy;
end;

class function TNodesModify.MNodeInfo(v_info :PTNodeInfo): Boolean;
var
  v_nodemodify:TNodesModify;
  v_i:Integer;
begin
  v_nodemodify:= TNodesModify.Create(nil);

  try

    try
       Result := (v_nodemodify.ShowModal = mrOK);
    except
      on e:Exception do
      ShowMessage(e.Message);

    end;
    v_objlist.Destroy;
    if not Result then
    begin
      Exit;
    end;
    Result:=True;
  finally
    v_nodemodify.Free;
  end;

end;

procedure TNodesModify.FormShow(Sender: TObject);
var
  v_n:Tposrecord;
  v_i:Integer;
begin
    if v_objlist=nil then
    v_objlist:=TObjectList.Create;
    for v_i:=0 to 10 do
    begin
      v_n:=Tposrecord.Create(inttostr(v_i),
                             inttostr(v_i+1));
      cbb3.AddItem(inttostr(v_i),TObject(v_n));
      v_objlist.Add(v_n);
    end;
    cbb3.ItemIndex:=0;
end;

该界面第一次打开的时候 v_objlist=nil 成立，如果再次打开就不成了。

所以有3种修改方法。

1、要么将 if v_objlist=nil then 去掉。

2、要么在v_objlist.Destroy; 这句后面再加一个 v_objlist=nil; 

3、将v_objlist定义成TNodesModify的一个成员变量。