diff --git a/src/ReC.Application/RecActions/Commands/DeleteActionProcedure.cs b/src/ReC.Application/RecActions/Commands/DeleteActionProcedure.cs
index 1c11cfe..4875a20 100644
--- a/src/ReC.Application/RecActions/Commands/DeleteActionProcedure.cs
+++ b/src/ReC.Application/RecActions/Commands/DeleteActionProcedure.cs
@@ -1,3 +1,4 @@
+using MediatR;
 using ReC.Application.Common.Procedures.DeleteProcedure;
 
 namespace ReC.Application.RecActions.Commands;
@@ -18,15 +19,18 @@ public record DeleteActionProcedure : IDeleteProcedure
     /// If true, delete even if dependent RESULT data exists
     /// </summary>
     public bool Force { get; set; }
+}
 
-    public DeleteObjectProcedure ToObjectProcedure()
+public class DeleteActionProcedureHandler(ISender sender) : IRequestHandler<DeleteActionProcedure, int>
+{
+    public async Task<int> Handle(DeleteActionProcedure request, CancellationToken cancel)
     {
-        return new DeleteObjectProcedure
+        return await sender.Send(new DeleteObjectProcedure
         {
             Entity = "ACTION",
-            Start = Start,
-            End = End,
-            Force = Force
-        };
+            Start = request.Start,
+            End = request.End,
+            Force = request.Force
+        }, cancel);
     }
-}
+}
\ No newline at end of file