begin
  AdvPreviewMenu1.MenuItems.BeginUpdate;
  with AdvPreviewMenu1.MenuItems.Add do
  begin
    Caption := 'Mainitem1';
    SubMenuCaption := 'Sub menu caption1';
    with SubItems.Add do
    begin
     Title := 'Subitem1';
     Notes.Text := 'This is an additional note';
    end;
  end;

  with AdvPreviewMenu1.MenuItems.Add do
  begin
    Caption := 'Mainitem2';
    SubMenuCaption := 'Sub menu caption2';
    with SubItems.Add do
    begin
      Title := 'Subitem2';
      Notes.Text := 'This is an additional note';
    end;
  end;
  AdvPreviewMenu1.MenuItems.EndUpdate;
end;