diff --git a/components/fpdebug/fpdbgclasses.pp b/components/fpdebug/fpdbgclasses.pp
index 0a066a1601..9ec4df5f83 100644
--- a/components/fpdebug/fpdbgclasses.pp
+++ b/components/fpdebug/fpdbgclasses.pp
@@ -518,7 +518,7 @@ begin
 
   if not FProcess.WriteData(FLocation, 1, Int3)
   then begin
-    Log('Unable to set breakpoint at $%p', [FLocation]);
+    Log('Unable to set breakpoint at '+FormatAddress(FLocation));
     Exit;
   end;
 end;