[TOJluK]

Неужели никто не знает? Или я плохо объяснил суть?
Вот процедура Action1Execute:

Код:

procedure TDataModule_main.Action1Execute(Sender: TObject);
begin
// Edit1.Text:=название пункта меню, которое вызвало событие
end;