[[maeyanes]]

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...