Многоуровневое дропдаун меню

[Ky3Heu,]

Есть проблемка. Нужно составить многоуровневое дропдаун меню в виде:

3 уровня:
Служба->Список цехов в службе->По каждому цеху список участков

2 уровня:
Служба->Cписок участков.

Вложенность уровней у каждой службы своя но не менее 2-х и не более 3-х.
Вот код, но он не совсем работает. Подскажите, что не так.

procedure TRegF.FormShow(Sender: TObject);
var l2,l3,ab :String;
begin

MainF.OpenTables;

  for I := 0 to DMF.sCeh.RecordCount-1 do
  begin

    mlvl1         := TMenuItem.Create(self);
    mlvl2         := TMenuItem.Create(self);

    ab := Trim(DMF.sCehABBR.Value);

    DMF.sDownL2.Close;
    DMF.sDownL2.SQL.Clear;
    DMF.sDownL2.SQL.Add('Select * from DownLvl2 where abbr = :ab');
    DMF.sDownL2.Parameters.ParamByName('ab').Value := ab;
    DMF.sDownL2.Open;

    mlvl1.Caption := Trim(DMF.sCehABBR.Value);
    mlvl2.Caption := Trim(DMF.sDownL2LVL2.Value);
    sObj.Items.Add(mlvl1);
    sObj.Items.Items[i].Add(mlvl2);
    mlvl1.OnClick := self.MenuSelect;
    mlvl2.OnClick := self.SubMenuSelect;

    l2 := Trim(DMF.sDownL2LVL2.Value);

    if DMF.sCehDownLvl.Value = 3 then
    begin

      DMF.sDownL3.Close;
      DMF.sDownL3.SQL.Clear;
      DMF.sDownL3.SQL.Add('Select * from DownLvl3 where downlvl2 = :dl2');
      DMF.sDownL3.Parameters.ParamByName('dl2').Value := l2;
      DMF.sDownL3.Open;

        for j := 0 to DMF.sDownL3.RecordCount-1 do
        begin
        mlvl3 := TMenuItem.Create(self);
        mlvl3.Caption := Trim(DMF.sDownL3DownLvl3.Value);
        mlvl3.Tag:=0;
        sObj.Items.Items[i].Items[j].Add(mlvl3);
        DMF.sDownL3.Next;
        mlvl3.Free;
        end;//for j := 0 to DMF.sDownL3.RecordCount-1

      mlvl3.OnClick := self.L3MenuSelect;

    end;//if DMF.sCehDownLvl.Value = 3

   DMF.sCeh.Next;
   mlvl1.Free;
   mlvl2.Free;
   mlvl3.Free;

  end; //for I := 0 to DMF.sCeh.RecordCount-1

[evg_m]

        for j := 0 to DMF.sDownL3.RecordCount-1 do  begin
          mlvl3 := TMenuItem.Create(self);
          mlvl3.Caption := Trim(DMF.sDownL3DownLvl3.Value);
          mlvl3.Tag:=0;
          sObj.Items.Items[i].Items[j].Add(mlvl3);
          DMF.sDownL3.Next;
          mlvl3.Free;
        end;  //for j := 0 to DMF.sDownL3.RecordCount-1

      mlvl3.OnClick := self.L3MenuSelect;

mlvl3.OnClick := self.L3MenuSelect;

а почему она ВНЕ цикла. Назначать обработчик надо КАЖДОМУ вновь создаваемому (Create) объекту.
Внести внутрь цикла.

mlvl3.Free;

Только добавили и сразу удалять(уничтожать объект)?
Надо убрать эту строчку.

[Ky3Heu,]

спасибо, попробую. mlvl3.free добавил уже от безысходности.

[Ky3Heu,]

при втором обороте цикла по j на строке

sObj.Items.Items[i].Items[j].Add(mlvl3);

выдает ошибку List index out of bounds

[evg_m]

DMF.sCeh.Next;
mlvl1.Free;
mlvl2.Free;
mlvl3.Free;

end; //for I := 0 to DMF.sCeh.RecordCount-1

ЭТи Free тоже не нужны. по тем же причинам.

немного переделал код

  for I := 0 to DMF.sCeh.RecordCount-1 do
  begin

    mlvl1         := TMenuItem.Create(self);
    mlvl1.Caption := Trim(DMF.sCehABBR.Value);
    sObj.Items.Add(mlvl1);
    mlvl1.OnClick := self.MenuSelect;

    mlvl2         := TMenuItem.Create(self);
    mlvl2.Caption := Trim(DMF.sDownL2LVL2.Value);
// следующую строку наверное можно и так
    mlv1.Add(mlv2); //  sObj.Items.Items[i].Add(mlvl2);
    mlvl2.OnClick := self.SubMenuSelect;

если так то
mlvl1.OnClick := self.MenuSelect;
становится излишней. Для меню верхних уровней обычно достаточно стандартных действий. (Обработчик не назначается).

аналогично

        for j := 0 to DMF.sDownL3.RecordCount-1 do
        begin
        mlvl3 := TMenuItem.Create(self);
        mlvl3.Caption := Trim(DMF.sDownL3DownLvl3.Value);
        mlvl3.Tag:=0;
// видимо так
        mlv2.add(mlv3); //  sObj.Items.Items[i].Items[j].Add(mlvl3);

и соответственно вопрос о нужности строки
mlvl2.OnClick := self.SubMenuSelect;

P.S. Задавайте только те свойства, которые были бы введены (заданы) при создании данных пунктов меню во время проектирования.