Наполнение меню в цикл

[Kronos913]

Создал вот такую процедуру, чтобы наполнить менюшку кнопками, которые обрабатывает одна процедура

type
   ProcedureClick=procedure(Sender: TObject) of object;

Procedure MakeMenuItem(PPM:TComponent; const Captions: array of string; Proc:ProcedureClick; RadioItems: boolean);
  var
    j:integer;
    MI:TMenuItem;
begin
    For j:=low(Captions) to high(Captions) do begin
      MI:=TMenuItem.Create(nil);

      If PPM is TMenu then TMenu(PPM).Items.Add(MI) else
      If PPM is TMenuItem then TMenuItem(PPM).Add(MI);

      MI.Tag:=j;
      MI.Caption:=Captions[j];
      MI.RadioItem:=RadioItems;
      MI.OnClick:=Proc;
    end;
end;

Вопрос: как привести этот код к нормальному виду? Оно та работает, но есть ощущение того, что код не очень естественный... Особенно учитывая этот If внутри цикла

[evg_m]

Особенно учитывая этот If внутри цикла

1. посмотреть как объявлен Tmenu.Items: TMenuItem;
2. объявить свою процедуру "универсально"

procedure MakeMenu(parent: TMenuItem; ...);

и убрать этот if

3. и использовать

mm: TMenu;
MAkeMenu(mm.Items, ...);

mx: TMenuItem;
MAkeMenu(mx, ...);

[Kronos913]

Отлично, спасибо. Так лучше