Ссылка на процедуру

[DelhiProgramer]

Допустим у меня есть модуль (Unit 2 например), в котором есть процедура добавляющая пункт в главное меню из первого модуля. То есть из Unit 1 мне надо дать ссылку на процедуру этого юнита в другой юнит, но тот другой как бы не знает, что вызывающий его юнит назывется юнит 1. То есть какую процедуру надо сделать в юнит 2, чтоб вызвав её из юнита 1 в юните 2 главному меню при щелчке на пункт вызывалась процедура из юнита 1
Наверно никто не поймёт что я хотел спросить...

[astecenko]

Используйте Uses. Почитайте книжки по Delphi

[DelhiProgramer]

Счас объясню лучше, чё мне надо
в Unit2 есть массивы
menuh: array[1..10] of Tmainmenu;
forms: array[1..10] of TForm;
...
//процедуры связанные с меню
procedure CreateNewMenu(d,p: integer);
begin
menuh[d]:=TMainMenu.Create(Forms[p]);
forms[p].Menu:=menuh[d];
end;

procedure MenuADD(d: integer; mp: string);
var
newitem: Tmenuitem;
begin
newitem := tmenuitem.create(Menuh[d]);
newitem.caption := mp;
{если вы хотите определить событие onclick
newitem.onclick:=Dynamenuclick; }
{добавляем это к верхнему уровню меню}
menuh[d].items.insert(menuh[d].items.count, newitem);
end;

procedure SubMenuAdd(d,mi: integer; mp: string);
var
newitem, toitem: Tmenuitem;
begin
{to = верхний уровень меню для нового пункта}
toitem := menuh[d].items[mi];
newitem := tmenuitem.create(toitem);
newitem.caption := mp;
{если вы хотите определить событие onclick
newitem.onclick:=Dynamenuclick; }
toitem.onclick := nil;
toitem.insert(toitem.count, newitem);
end;
Как определить событие onclick с процедурой из модуля, который использует Unit2 если имя этого модуля не известно (uses не выйдет)

[Пепел Феникса]

имя модуля не может быть вам не известно.

[DelhiProgramer]

Это конечно верно, но этот модуль допустим будет использоваться другими людьми им тогда обязательно надо немножно изменить подключения юнитов
Стоп. А у меня Unit 2 вызывается проектом а не юнитом, чё тогда

[DelhiProgramer]

Ладно извините я уже запутался, чёрт с ней с этой идеей