diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas
index af029cb7..9bc16ed5 100644
--- a/src/ce_gdb.pas
+++ b/src/ce_gdb.pas
@@ -42,7 +42,7 @@ type
     procedure startDebugging;
     procedure killGdb;
     procedure updateFileLineBrks;
-    procedure editorModBrk(sender: TCESynMemo; line: integer; removed: boolean);
+    procedure editorModBrk(sender: TCESynMemo; line: integer; modification: TBreakPointModification);
     // GDB output processors
     procedure processInfoRegs(sender: TObject);
     procedure processInfoStack(sender: TObject);
@@ -181,12 +181,12 @@ begin
   end;
 end;
 
-procedure TCEGdbWidget.editorModBrk(sender: TCESynMemo; line: integer; removed: boolean);
+procedure TCEGdbWidget.editorModBrk(sender: TCESynMemo; line: integer; modification: TBreakPointModification);
 var
   str: string;
   nme: string;
 const
-  cmd: array[boolean] of string = ('break ', 'clear ');
+  cmd: array[TBreakPointModification] of string = ('break ', 'clear ');
 begin
   // set only breakpoint in live, while debugging
   // note: only works if execution is paused (breakpoint)
@@ -196,7 +196,7 @@ begin
   nme := sender.fileName;
   if not FileExists(nme) then exit;
   //
-  str := cmd[removed] + nme + ':' + intToStr(line);
+  str := cmd[modification] + nme + ':' + intToStr(line);
   fGdb.Suspend;
   gdbCommand(str);
   fGdb.Resume;
diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 0910ea95..ce7a6d9f 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -16,9 +16,11 @@ type
 
   TCESynMemo = class;
 
+  TBreakPointModification = (bpAdded, bpRemoved);
+
   // breakpoint added or removed
   TBreakPointModifyEvent = procedure(sender: TCESynMemo; line: integer;
-    removed: boolean) of object;
+    modification: TBreakPointModification) of object;
 
   // Simple THintWindow descendant allowing the font size to be in sync with the editor.
   TCEEditorHintWindow = class(THintWindow)
@@ -1103,7 +1105,7 @@ begin
   fBreakPoints.Add(pointer(line));
   {$WARNINGS ON}
   if assigned(fBreakpointEvent) then
-    fBreakpointEvent(self, line, false);
+    fBreakpointEvent(self, line, bpAdded);
 end;
 
 procedure TCESynMemo.removeBreakPoint(line: integer);
@@ -1116,7 +1118,7 @@ begin
   fBreakPoints.Remove(pointer(line));
   {$WARNINGS ON}
   if assigned(fBreakpointEvent) then
-    fBreakpointEvent(self, line, true);
+    fBreakpointEvent(self, line, bpRemoved);
 end;
 
 function TCESynMemo.findBreakPoint(line: integer): boolean;