Puedes buscar el TAction por su nombre y ejecutarlo:
Código Delphi
[-]
procedure TFormPrincipal.Ejecutar_Action(const Nombre: String);
var i:Integer;
begin
for i:= 0 to FormPrincipal.ComponentCount -1 do
begin
if (FormPrincipal.Components[i] is TAction)
then begin
if (TAction(FormPrincipal.Components[i]).Name = Nombre)
then begin
TAction(FormPrincipal.Components[i]).Execute;
break;
end;
end;
end;
end;