[AlexSku]

Код:

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