Wie kann ich die Breite eines TPopupMenu festlegen?

[berens]

Kann ich denn OnDrawItem nutzen um das ARect zu verändern?

Delphi-Quellcode:

OnDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
var
  a: TRect;
begin
  a := ARect;
  a.Right := 200;
  inherited; // geht nicht, wie rufe ich die ursprüngliche DrawItem Prozedur auf?
end;