создание PopupMenu

[Volkogriz]

Доброе время суток!
Возникла необходимасть загружать пункты PopupMenu из файла!
Например с названиями городов!
Выбираем ComboBox-е московская облсть и в PopupMenu загружаеться файл с городами московской облости создовая подминю из названий городов, дальше выбрать город из меню и этот город отоброзился в Edit
Как это осушиствить?
Памагите пажалусто!!!
С уважением ,
Volkogriz!

[Баламут]

Ну рассказывать как читать пункты меню из файла я полагаю не стоит... Само же создание пунктов меню выглядит примерно так:

...............
    m, n: TMenuItem;
    procedure MenuClick(Sender: TObject);
...................

  m := TMenuItem.Create(Self);
  n := TMenuItem.Create(Self);
  m.Add(n);
  n.Caption := 'Городок 2';
  n.OnClick := MenuClick;
  PopupMenu.Items.Add(m);
  m.Caption := 'Городок 1';
......................
procedure TForm1.MenuClick(Sender: TObject);
begin
  ShowMessage((Sender as TMenuItem).Caption);
end;