Membuat 1 Form dengan Source Code :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Menu11: TMenuItem;
itemsmenu11: TMenuItem;
itemsmenu21: TMenuItem;
N1: TMenuItem;
itemmenu4CtrlF11: TMenuItem;
itemsmenu4CtrlShiftF11: TMenuItem;
itemsmenu51: TMenuItem;
itemsmenu61: TMenuItem;
Exit1: TMenuItem;
EXIT2: TMenuItem;
Menu21: TMenuItem;
itemsmenu12: TMenuItem;
itemsmenu22: TMenuItem;
itemsmenu23: TMenuItem;
itemsmenu31: TMenuItem;
procedure itemsmenu11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.itemsmenu11Click(Sender: TObject);
var
MenuItem : TMenuItem;
Pilihan : integer;
MenuPopUp, ItemMenu : integer;
str : string;
begin
Menuitem:= Sender as TmenuItem;
Pilihan:= MenuItem.Tag;

//mencari menu dan item menu yang di pilih

if (Pilihan >10) then
MenuPopup:=2
else
MenuPopup:=1;

if (Pilihan >10) then
ItemMenu:=Pilihan - 10
else
ItemMenu :=Pilihan;

//menginisialisasi string yang di tampilkan

str:='Menu'+ IntToStr(MenuPopup) + 'Item Menu' +
IntToStr (ItemMenu) + 'dipilih or clicked';

//menampilkan kotak pesan
Application.MessageBox(PChar (Str), 'Informasi',
MB_OK or MB_ICONINFORMATION);
end;

end.

SCREENSHOOT BELOW :

Kesimpulan :

Metode ini adalah basic dari membuat tampilan menu pada window.