diff --git a/ide/buildmodesmanager.pas b/ide/buildmodesmanager.pas
index c5e744d721..31130811db 100644
--- a/ide/buildmodesmanager.pas
+++ b/ide/buildmodesmanager.pas
@@ -215,6 +215,7 @@ var
   BMList: TBuildModesCheckList;
 begin
   Result:=True;
+  DlgMsg:='';
   BMList:=TBuildModesCheckList.Create(DlgMsg);
   try
     if IsIncludeFile then begin