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

Код:

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

Код:

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)