DropDownMenu beim TToolButton auch mit norm. klick öffnen

[phlux]

Irgendwie steig ich nicht durch bei deiner Erklärung, ausserdem habe ich die OnClick Prozedur wie folgt gestaltet:

Code:

procedure TMainForm.DoZoom(Sender: TObject);
Var Item: String;

begin
  Item := (Sender AS TMenuItem).Name;
  try
    If Item = 'N1001' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 1.00
    else if Item = 'N901' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.90
    else if Item = 'N801' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.80
    else if Item = 'N701' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.70
    else if Item = 'N601' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.60
    else if Item = 'N501' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.50
    else if Item = 'N401' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.40
    else if Item = 'N301' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.30
    else if Item = 'N201' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.20
    else if Item = 'N101' then
      WebBrowser.OleObject.Document.Body.Style.Zoom := 0.10;
  except
    //Do nothing
  end;
end;

Heißt jedes MenuItem ruft die Procedure DoZoom auf, wenn ich jetzt beim Button das Event auch auf OnClick setzte kriege ich "ungültige Typumwandlung". Ich will einfach nur, dass das Menu aufpoppt wenn ich auf den Button klick