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