diff --git a/ide/mainbase.pas b/ide/mainbase.pas
index 42c1b59d91..c8897488a1 100644
--- a/ide/mainbase.pas
+++ b/ide/mainbase.pas
@@ -322,7 +322,7 @@ var
       AMenuItem := Items[CurIndex] as TBuildModeMenuItem
     else
     begin
-      AMenuItem := TBuildModeMenuItem.Create(DropdownMenu);
+      AMenuItem := TBuildModeMenuItem.Create(Self);
       AMenuItem.Name := Name + 'Mode' + IntToStr(CurIndex);
       Items.Add(AMenuItem);
     end;