А как это сделать? Вот есть две процедурки для создания меню и подменю:
procedure tform1.addmainitem(s:string);
var
newitem : Tmenuitem;
begin
newitem:=tmenuitem.create(Mainmenu1);
newitem.caption:=s;
mainmenu1.items.insert(mainmenu1.items.count,newitem);
end;
procedure tform1.addsubitem(s:string; too : integer);
var
newitem, toitem : Tmenuitem;
begin
toitem:=mainmenu1.items[too];
newitem:=tmenuitem.create(toitem);
newitem.caption:=s;
toitem.onclick:=nil;
toitem.insert(toitem.count,newitem);
end;
А под каким именем тот обьект (пункт меню), который я создал? Т.е. я не знаю кому и как назначить этот ONClick