[Demlan]

Получилось примерно следующее:

Код:

procedure TForm1.PopupMenu3Popup(Sender: TObject);
var
   m: TmenuItem;
begin
  with (Sender as TPopupMenu) do
  begin
    // Удаляем все пункты меню

    while Items.Count > 0 do
      Items[0].Free;

  PopupMenu3.Items.Add(m);
  end;

  with Form2.ADOTable1
do begin
    First;
    //m:= TMenuItem.Create(nil);
    while not EOF
    do begin
        with TMenuItem.Create(self)
        do begin Caption := ADOTable1РПП.AsString;
        Next;
        end;
        end;
    end;

  end;

Но теперь выдает ошибку.