Foros Club Delphi - ¿Cómo borrar items de un popup?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - ¿Cómo borrar items de un popup? (https://www.clubdelphi.com/foros/showthread.php?t=92567)

¿Cómo borrar items de un popup?

Estimados,

tengo un componente TAdvPopupMenu con "n items", es decir, componentes TItemMenu, el problema es que cada cierto tiempo necesito eliminarlos todos dinámicamente, excepto el primero.
Estoy intentando hace 2 horas y no puedo, me explota.

Este es el código que estoy intentando en este momento:

Código:

    if pmOfertasBarraVertical.Items.Count  > 1 then

  begin

      pmOfertasBarraVertical.BeginUpdate;

      while pmOfertasBarraVertical.Items.Count  > 1 do    //<-No quiero eliminar todos

      begin

          if pmOfertasBarraVertical.Items.Count > 1 then

          begin

              pmOfertasBarraVertical.Items[1].Free;

              pmOfertasBarraVertical.Items.Delete(1);

          end;

      end;

      pmOfertasBarraVertical.EndUpdate;

  end;

Hola...

Con solo liberar el menuitem debería bastar:

Código Delphi [-]if pmOfertasBarraVertical.Items.Count > 1 then
begin
  pmOfertasBarraVertical.BeginUpdate;
  try
    while pmOfertasBarraVertical.Count > 1 do
      pmOfertasBarraVertical.Items[1].Free
  finally
    pmOfertasBarraVertical.EndUpdate
  end
end;

Por cierto, deberías especificar cual es el error que te reporta Delphi.

Saludos...