title: TPopupMenu retains max width, even after Items.clear
body: <p>How can you reset the max width for a PopupMenu's items list?</p>
  
  <p>Say i.e you add a few TMenuItems at runtime to a popupmenu:</p>
  
  <pre><code>item1: [xxxxxxxxxxxxxxxxxxx]
  item2: [xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx]
  </code></pre>
  
  <p>The menu automatically adjusts the size to fit the largest item.
  But then you do Items.Clear and add a new item:</p>
  
  <pre><code>item1: [xxxxxxxxxxxx                    ]
  </code></pre>
  
  <p>It ends up like that, with a large empty space after the caption.</p>
  
  <p>Is there any workaround besides re-creating the popupmenu?</p>
  
  <p>Here the code for reproducing this anomaly:</p>
  
  <pre><code>procedure TForm1.Button1Click(Sender: TObject);
  var
    t: TMenuItem;
  begin
    t := TMenuItem.Create(PopupMenu1);
    t.Caption := 'largelargelargelargelargelarge';
    PopupMenu1.Items.Add(t);
    PopupMenu1.Popup(200, 200);
  end;
  
  procedure TForm1.Button2Click(Sender: TObject);
  var 
    t: TMenuItem;
  begin
    PopupMenu1.Items.Clear;
    t := TMenuItem.Create(PopupMenu1);
    t.Caption := 'short';
    PopupMenu1.Items.Add(t);
    PopupMenu1.Popup(200, 200);
  end;
  </code></pre>