diff --git a/ide/main.pp b/ide/main.pp
index 3a080eae8f..b52cd63efa 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -251,6 +251,7 @@ type
     procedure mnuOpenFileAtCursorClicked(Sender: TObject);
     procedure mnuGotoIncludeDirectiveClicked(Sender: TObject);
     procedure mnuSearchProcedureList(Sender: TObject);
+    procedure mnuSetFreeBookmark(Sender: TObject);
 
     // view menu
     procedure mnuViewInspectorClicked(Sender: TObject);
@@ -2357,6 +2358,7 @@ begin
     itmSearchRenameIdentifier.OnClick:=@mnuSearchRenameIdentifierClicked;
     itmGotoIncludeDirective.OnClick:=@mnuGotoIncludeDirectiveClicked;
     itmSearchProcedureList.OnClick := @mnuSearchProcedureList;
+    itmSetFreeBookmark.OnClick := @mnuSetFreeBookmark;
   end;
 end;
 
@@ -2686,6 +2688,11 @@ begin
   ProcedureList.ExecuteProcedureList(Sender);
 end;
 
+procedure TMainIDE.mnuSetFreeBookmark(Sender: TObject);
+begin
+  SourceNotebook.BookMarkSetFree;
+end;
+
 procedure TMainIDE.mnuSaveClicked(Sender: TObject);
 begin
   if SourceNoteBook.PageIndex < 0 then exit;
diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 1bb7d59f42..db6399337d 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -495,7 +495,6 @@ type
     procedure BookmarkGotoNext(GoForward: boolean);
     procedure BookMarkGotoClicked(Sender: TObject);
     procedure BookMarkSet(Value: Integer; Toggle: boolean = false);
-    procedure BookMarkSetFree;// set a free bookmark
     procedure BookMarkToggleClicked(Sender: TObject);
     procedure BookmarkSetFreeClicked(Sender: TObject);
     procedure EditorPropertiesClicked(Sender: TObject);
@@ -533,6 +532,7 @@ type
     procedure SrcEditMenuAnotherViewClicked(Sender: TObject);
     {$ENDIF}
   public
+    procedure BookMarkSetFree;// set a free bookmark
     procedure BookMarkNextClicked(Sender: TObject);
     procedure BookMarkPrevClicked(Sender: TObject);
     procedure DeleteBreakpointClicked(Sender: TObject);