Динамическое добавление в PopupMenu

[k1r1ch]

Так я добавляю элементы подменю в раздел TPopupMenu SkinItem. Они копируют элементы из SkinList (это ComboBox):

var M: TMenuItem;

begin
for i := 0 to SkinList.Items.Count - 1 do
  begin
    M.Create(TrayPopupMenu);
    M.Caption := SkinList.Items[i];
    SkinItem.Add(M);
  end;
end;

Проблема вот в чем: как сделать у каждого элемента обработчик на клик, чтобы в ComboBox'е менялся итем индекс на нужный???

[Stilet]

чтобы в ComboBox'е менялся итем индекс на нужный???

с потолка:

m.OnClick:=mclick;

mclick - процедура обработчик клика, сам создай ее
В ней:

var i:integer;s:string;
begin
 // Удаляем нежданчики горячих клавиш в заголовке меню-элемента
 s:=StringReplace(TMenuItem(sender).caption,'&','',[]);
 // Есть ли он в списке
 i:=SkinList.items.IndexOF(s);
 // Если есть активируем
 if i<>-1 then
  skinList.ItemIndex:=i;
end;