実行時にPopupMenuにmenu1を追加して、さらにサブメニューにmenu2を追加したいのですが、
下のやり方で実行時に「EAccessViolationクラスの例外を生成しました」
というエラーがでます。

procedure TForm1.Button1Click(Sender: TObject);
var
NewItem1, NewItem2, Menu1 : TMenuItem;
begin
NewItem1 := TMenuItem.Create(Self);
NewItem1.Caption := 'Test';
NewItem1.Name := 'Menu1';
PopupMenu1.Items.Add(NewItem1);

NewItem2 := TmenuItem.Create(Self);
NewItem2.Caption := 'Test';
Menu1.Insert(0,NewITem2);
end;

適切なやり方を教えてもらえないでしょうか。お願いします。