diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
index 026ad6d3bf..c676aaec85 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -1406,8 +1406,7 @@ end;
 
 procedure TFpDebugDebugger.QuickPause;
 begin
-  FQuickPause:=true;
-  FDbgController.Pause;
+  FQuickPause:=FQuickPause;
 end;
 
 procedure TFpDebugDebugger.DoState(const OldState: TDBGState);