[!nferno]

Сообщение от AlexSku

Код:

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

Все работает
Спасибо всем кто учавствовал. Автору зачет