diff --git a/ide/frames/editor_mouseaction_options_dlg.pas b/ide/frames/editor_mouseaction_options_dlg.pas
index d2d2f84fed..af84ad0870 100644
--- a/ide/frames/editor_mouseaction_options_dlg.pas
+++ b/ide/frames/editor_mouseaction_options_dlg.pas
@@ -70,7 +70,7 @@ begin
   CapturePanel.Caption := dlgMouseOptCapture;
   CaretCheck.Caption := dlgMouseOptCaretMove;
   ActionBox.Clear;
-  for i:= 1 to emcMax do begin
+  for i:= 0 to emcMax do begin
     CName := MouseCommandName(i);
     if CName <> '' then
       ActionBox.Items.AddObject(CName, TObject(i));