Процедура в динамички созданном popup menu

[Magixxx]

Всем привет! тут такой вопрос возник:
Как сделать процедуру OnClick в динамически созданном списке в PopUp Menu????
Список создается уже в программе и надо сделать так чтобы при нажатии на данный список (меню), уже в программе, выполнялась процедура OnClick!!!
Вот код кнопки, при нажатии которой создаётся список, уже в программе

i:=form1.popupactionbar1.Items[1];
with i do
  begin
    b:=TMenuItem.Create(self);
    with b do
      begin
        Caption:=edit1.Text;
      end;
   Insert(0,b);
   c:=TMenuItem.Create(self);
   c.Caption:='Удалить игру';
   form1.popupactionbar1.Items[1].Items[0].Insert(0,c);
   g:=TMenuItem.Create(self);
   g.Caption:='Проблема';
   form1.popupactionbar1.Items[1].Items[0].Insert(1,g);
   y:=TMenuItem.Create(self);
   y.Caption:='Редактировать';
   form1.popupactionbar1.Items[1].Items[0].items[1].Insert(0,y);
   u:=TMenuItem.Create(self);
   u.Caption:='Очистить проблему';
   form1.popupactionbar1.Items[1].Items[0].items[1].Insert(1,u);
  end;

В данном списке я добавляю меню и два раздела подменю, то есть меню, подменю, подподменю
Вот мне нужно чтобы при нажатии на эти подменю срабатывала процедура, но никак не могу сделать!!!

Подскажите пожалуйста, как это сделать если кто знает!!!
Заранее благодарю!

[ArtInt]

Для этого b,c,u надо присвоить данные процедуры (что будут выполняться при клике)
Например:

с.Onclick:=ClickItemC; // где ClickItemC выполняемая процедура

Потом создаем данную процедуру

procedure TForm1.ClickItemC (Sender: TObject);
begin
//пишем что надо
end;

[Magixxx]

Спасибо большое ArtInt!!! Всё получилось, очень благодарен тебе, реально срочно надо было сделать!!!