delphi - 別の Delphi の無効なポインタ操作

Question

この VCL フォーム プログラムは、無効なポインタ操作通知を生成します。

Uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,
  DcadMenu_u;

type
  TForm1 = class(TForm)
    MenuTestRichEdit: TRichEdit;
    LoadButton: TButton;
    procedure ButtonLoadClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonLoadClick(Sender: TObject);
  var
    menu : TDcadMenu;
    item1, item2 : TDcadMenuItem;
    strlist :tstringlist;
    i : integer;
  begin
    menu := tDcadMenu.Create();
    item1 := TDcadMenuItem.create ('Option1', 'Do Option1', false, false, true);
    menu.add (item1);
    item2 := TDcadMenuItem.create ('Option2', 'Do Option2', false, false, true);
    menu.add (item2);
    strlist := tstringlist.Create;
    Try
      For i :=  0 to Menu.Count - 1 DO
        begin
          item1 := menu.Items[i];
          strlist.Add (Item1.lblset + '  |  ' + Item1.lblmsg );
         end;
      Form1.MenuTestRichEdit.Lines := strlist;
    finally
      item1.free;
      item2.Free;
      menu.free;
      strlist.Free;
    end;
  end;

コードは正常に機能し、Richedit コンポーネントでアイテム リストを生成します。すでに処理されているオブジェクトを解放していると思われますが、具体的な原因は明らかではありません。誰かがこれを説明できますか？