diff --git a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
index b57dd4fa26..42d028644d 100644
--- a/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
@@ -1600,10 +1600,14 @@ begin
       end
     else
       begin
+        ALocationAddr := GetLocation;
         ABreakPoint := TFPBreakpoints(BreakPoints).Find(Breakpoint);
+
+        if Assigned(EventLogHandler) then
+          EventLogHandler.LogEventBreakPointHit(ABreakpoint, ALocationAddr);
+
         if assigned(ABreakPoint) then
           ABreakPoint.Hit(continue);
-        ALocationAddr := GetLocation;
       end;
     end
   else if FQuickPause then