Работа с PopupMenu

[Ky3Heu,]

Здравствуйте. Есть такой трабл: мне нужно создать динамическое дропдаун меню. У каждого меню должно быть еще и сабменю. Количество МЕНЮ и САБМЕНЮ заранее неизвестно и варьируется количеством записей в справочниках.
Суть самой задачи такова: У меня в организации туева хуча объектов, которые делятся еще и на разные подразделения и мне нужно, чтоб в Edit заносились Объект.Caption+Подразделение.Captio n, по которым кликнул пользователь.
Честно никогда этим не интересовался и даже идей, как это сделать нет. Помогите плиз. Или может порекомендуете организовать это как-то по-другому??

[flexterful]

// Заполнение
Загрузжаешь все надписи в попуп. методом АддЧаилд или типо того
// Приготовление к обработке
И присваеваешь каждому одит и тот же ОнКлик.
// Получение текучего подпункта
В евенте кастируешь Сендер как ТМенюИтем и работаешь.
// Заполнение ТЕдит
Записываешь в ТЕдит значение Кэпшион
В цикле добавляешь в начало ТЕдит всех родителей подпункта (ХэсПарент или типо того)

[Ky3Heu,]

Спасибо, конечно, но принцип мне понятен был и так.. Я с код написать не могу для всего этого..

[evg_m]

    PopupMenutilte: TPopupMenu;

procedure TFormReestr.PopupMenutiltePopup(Sender: TObject);
var
  j: integer;
  s: string;
  m: TmenuItem;
begin
  for j:=self.PopupMenutilte.Items.Count-1 downto 0 do
  begin//чистим динамическую часть(список полей)
    m:=self.PopupMenutilte.Items.Items[j];
    if m.Tag<>0 then m.Free;
  end;
  for j:=self.DBGrid1.Columns.Count-1 downto 0 do
  begin//формируем динамическую часть(список полей)
    s:=self.DBGrid1.Columns.Items[j].Title.Caption;
    m:=tmenuitem.Create(self);
    m.Tag:=integer(self.DBGrid1.Columns.Items[j].Title);
    m.OnClick:=self.GetSorted;
    m.Caption:=s;
    self.PopupMenutilte.Items.Insert(0,m);
  end;
end;

procedure TFormReestr.GetSorted(sender: TObject);
var
  r: string;
  ms: string;
begin
  ms:=TmenuItem(sender).Caption;
  if (length(ms)>0) and (ms[1]='&') then delete(ms,1,1);
....
end;