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
