Здравствуйте, vasketsov, Вы писали:

V>Здравствуйте, LeXa24, Вы писали:

LX>>Ну собственно так и делают. Вот только наверное Clicked с параметром Sender:TObject

V>Ага, а Procedure — то же, что и Procedure of Object ?
Сам то понял что сказал?
V>Короче, я так не думаю, но на 0 не тянет .
Ну предположим ты не хочешь получать Sender. И как ты будешь узнавать на что ты тыкнул?
Или есть большое желание писать под каждый пункт свою процедуру?
В общем вот код, пробуй. Все прекрасно работает.

procedure TForm1.DoSomething(Sender:TObject);
begin
     ShowMessage('NEW');
end;
procedure TForm1.FormShow(Sender: TObject);
var
   MenuItem:TMenuItem;
begin
     MenuItem:=TMenuItem.Create(MainMenu1);
     MenuItem.Caption:='New';
     MenuItem.OnClick:=DoSomething;
     MainMenu1.Items.Add(MenuItem);
end;