diff --git a/ide/frames/editor_mouseaction_options_dlg.pas b/ide/frames/editor_mouseaction_options_dlg.pas
index 7666cf420e..a75f1c2115 100644
--- a/ide/frames/editor_mouseaction_options_dlg.pas
+++ b/ide/frames/editor_mouseaction_options_dlg.pas
@@ -73,7 +73,7 @@ begin
   for i:= 0 to emcMax do begin
     CName := MouseCommandName(i);
     if CName <> '' then
-      ActionBox.Items.AddObject(CName, TObject(i));
+      ActionBox.Items.AddObject(CName, TObject(ptrint(i)));
   end;
   ButtonBox.Clear;
   for mb := low(TMouseButton) to high(TMouseButton) do