procedure TForm1.Action1Execute(Sender: TObject); begin if Sender is TAction then ShowMessage((Sender as TAction).ActionComponent.Name); end;