[Demlan]

Как создавать я знаю, но вот как брать значения из БД никак найти не могу((. Писал вот так:

Код:

var
  mi, msub: TmenuItem;
begin
  with (Sender as TPopupMenu) do
  begin
    // Удаляем все пункты меню

    // while Items.Count > 0 do Items.delete(0);
    while Items.Count > 0 do
      Items[0].Free;

    // Создаем обычный пункт "Первый"
   mi := TMenuItem.Create(self);
    with mi do
    begin
      Caption := 'Предмет';
      msub := TMenuItem.Create(self);

      with Form2.ADOTable1 do
begin First;
while not EOF do begin
with msub do
      begin
        Caption := ADOTable1РПП.AsString;
       end;
end;
end;

Админ: Пользуемся тегами для оформления кода!

Не получается, просто создает один пункт и всё.

Подскажите если не трудно. Заранее спосибо.