diff --git a/ide/frames/editor_mouseaction_options_dlg.pas b/ide/frames/editor_mouseaction_options_dlg.pas
index f1a75516c4..a5ffbd09b5 100644
--- a/ide/frames/editor_mouseaction_options_dlg.pas
+++ b/ide/frames/editor_mouseaction_options_dlg.pas
@@ -133,7 +133,7 @@ end;
 
 procedure TEditorMouseOptionsChangeDialog.WriteToAction(MAct: TSynEditMouseAction);
 begin
-  MAct.Command := Integer(ActionBox.items.Objects[ActionBox.ItemIndex]);
+  MAct.Command := TSynEditorMouseCommand(PtrUInt(Pointer(ActionBox.items.Objects[ActionBox.ItemIndex])));
   MAct.Button := IndexToBtn[ButtonBox.ItemIndex];
   MAct.ClickCount := IndexToClick[ClickBox.ItemIndex];
   MAct.MoveCaret := CaretCheck.Checked;