[f00rd]

Собственно, что требуется:

Меню, назовем его Menu (класса TPopupMenu) должно в программе менятся, т.е. должно уменьшаться/увеличиваться количество Item'ов в этом меню... Пробовал сделать через цикл:

var
 it: TMenuItem;
 a: array of TMenuItem;
 i: integer;
begin
 SetLength(a, 0);
 for i:=0 to SomeNum do
  begin
   it:=TMenuItem.Create(nil);
   it.Caption:=SomeString;
   SetLength(a, Length(a)+1);
   a[Length(a)-1]:=it;
   it.Free;
  end;
Menu.Items.Add(a);

Но вываливаются ошибки, типа it добавлено два раза...

Как быть?