Agregar Opciones a Menu Emergente de un componente

[ecfisa]

Hola Neruu.

Si con agregar una opción te referis a agregar un nuevo ítem podes hacer:

En tiempo de diseño
Doble click sobre el componente TPopupMenu correspondiente. Aparece el Menu designer que te permite hacerlo de forma sencilla.

En tiempo de ejecución (ejemplo)

Código Delphi [-]
...

procedure TForm1.NuevoItemClick(Sender: TObject);
begin
  ShowMessage('Click');
end;

procedure TForm1.btnAddItemClick(Sender: TObject);
var
  mi: TMenuItem;
begin
  mi:= TMenuItem.Create(Self);
  mi.Caption := 'Nuevo Item';
  mi.OnClick := NuevoItemClick;
  ...
  PopupMenu1.Items.Add(mi);
  ...
end;

Saludos