diff --git a/components/fpdebug/fpdbgclasses.pp b/components/fpdebug/fpdbgclasses.pp
index 91fce19d81..0cdf955475 100644
--- a/components/fpdebug/fpdbgclasses.pp
+++ b/components/fpdebug/fpdbgclasses.pp
@@ -3134,7 +3134,7 @@ begin
   if i < 0 then
     exit;
   FLocation[i] := FLocation[l];
-  SetLength(FLocation, l-1);
+  SetLength(FLocation, l);
   FProcess.FBreakMap.RemoveLocotion(ALocation, Self);
 end;