program Test;

uses KOL;

var
 Menu1, Menu2: PMenu;
 Menu1Items: Integer;

procedure MenuItemClick(Dummy: Pointer; Sender: PMenu; Item: Integer);
begin
 if Item <= Menu1Items then
   ShowMessage('Menu1')
 else
   ShowMessage('Menu2');
end;

begin
 Applet := NewForm(nil, 'Test');
 Menu1 := NewMenu(Applet, 0, ['Menu1', '(', '1', '2', '3', ')'], TOnMenuItem(MakeMethod(nil, @MenuItemClick)));
 Menu1Items := Menu1.Count;
 Menu2 := NewMenu(Applet, 0, ['A', 'B', 'C'], nil);
 Menu2.Caption := 'Menu2';
 Menu1.InsertSubMenu(Menu2, -1);
 Run(Applet);
end.