Auslöser einer Action feststellen will nicht so recht

[sieppl]

Hi!

Guckt euch mal bitte diesen Code an:

Delphi-Quellcode:

procedure TMainForm.AddFolderActionUpdate(Sender: TObject);
begin
  if (Sender as TAction).ActionComponent is TMenuItem then //das hier klappt nicht
    (Sender as TAction).Enabled := TreeView.PopUpNode <> nil
  else
    (Sender as TAction).Enabled := TreeView.Selected <> nil;
end;

Die Action wird entweder durch einen Button oder eine MenuItem eines PopUpMenüs ausgelöst.
Falls dieser Aufruf über das PopupMenü kommt wird ActionComponent aber nicht als TMenuItem erkannt.
Wo liegt der Fehler?

Grüße

Sebastian