[Помидоркин]

Код:

1 2 3 4 5 6

procedure ReceiveFile (FileName: String); begin     ... //некое действие     ... end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.FormCreate(Sender: TObject);  var mi: TMenuItem;      LF: TStringList;    i: Byte; begin                    .......................................     mi:= TMenuItem.Create(Self);   mi.Caption:= LF[i];   mi.Hint:= Optns.ReadString(LF[i]);     mi.OnClick:= //Вот тут и загвоздочка     PopupMenu2.Items.Insert(1, mi);                 ................................................   end;

Есть процедура принимающая параметр, динамически создается MenuItem, задача в том что бы на mi.OnClick выполнялась procedure ReceiveFile (FileName: String)