diff --git a/components/fpdebug/fpdbgdarwinclasses.pas b/components/fpdebug/fpdbgdarwinclasses.pas
index 99636e70c7..515e6ab316 100644
--- a/components/fpdebug/fpdbgdarwinclasses.pas
+++ b/components/fpdebug/fpdbgdarwinclasses.pas
@@ -145,7 +145,7 @@ type
 
     function Continue(AProcess: TDbgProcess; AThread: TDbgThread; SingleStep: boolean): boolean; override;
     function WaitForDebugEvent(out ProcessIdentifier, ThreadIdentifier: THandle): boolean; override;
-    //function ResolveDebugEvent(AThread: TDbgThread): TFPDEvent; override;
+    function Pause: boolean; override;
   end;
 
 procedure RegisterDbgClasses;
@@ -764,6 +764,11 @@ begin
     end
 end;
 
+function TDbgDarwinProcess.Pause: boolean;
+begin
+  result := FpKill(ProcessID, SIGTRAP)=0;
+end;
+
 function TDbgDarwinProcess.AnalyseDebugEvent(AThread: TDbgThread): TFPDEvent;
 
 begin