procedure TForm1.Button3Click(Sender: TObject);
var
   vMenuItem1 : TMenuItem;
   vMenuItem2 : TMenuItem;
begin
   vMenuItem1 := SubItem2;
   {-----------------------------------}
   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1';
   vMenuItem1.Add(vMenuItem2);
   vMenuItem1 := vMenuItem2;
   {-----------------------------------}
   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1';
   vMenuItem1.Add(vMenuItem2);
   vMenuItem1 := vMenuItem2;
   {-----------------------------------}
   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1.1';
   vMenuItem2.OnClick := SubItem2Click;
   vMenuItem1.Add(vMenuItem2);

   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1.2';
   vMenuItem2.OnClick := SubItem2Click;
   vMenuItem1.Add(vMenuItem2);

   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1.3';
   vMenuItem2.OnClick := SubItem2Click;
   vMenuItem1.Add(vMenuItem2);

   vMenuItem2 := TMenuItem.Create(self);
   vMenuItem2.Caption := 'New 1.1.4';
   vMenuItem2.OnClick := SubItem2Click;
   vMenuItem1.Add(vMenuItem2);
end;