diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index d2e05b6d86..ebf98f2fed 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -894,6 +894,10 @@ resourcestring
   lisBusy = 'Busy';
   lisCanNotTestTheCompilerWhileDebuggingOrCompiling = 'Cannot test the '
     +'compiler while debugging or compiling.';
+  lisNothingToDo = 'Nothing to do';
+  lisTheProjectHasNoCompileCommandSeePr = 'The project '
+    +'has no compile command.%sSee Project -> Project Options'
+    +' -> Compiler Options -> Compiler Commands';
   lisExecutingCommandBefore = 'Executing command before';
   lisProject2 = 'Project: ';
   lisExecutingCommandAfter = 'Executing command after';
diff --git a/ide/main.pp b/ide/main.pp
index cc17818337..ff30298a68 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -6795,10 +6795,9 @@ begin
     exit(mrOk);
   // reason is not handled
   if Quiet then exit(mrCancel);
-  Result:=IDEMessageDialog('Nothing to do',
-    'The project''s compiler options has no compile command.'+LineEnding+
-    'See Project / Project Options / Compiler Options / Compiler Commands',mtInformation,
-    [mbCancel,mbIgnore]);
+  Result := IDEMessageDialog(lisNothingToDo,
+    Format(lisTheProjectHasNoCompileCommandSeePr, [LineEnding])
+      , mtInformation, [mbCancel,mbIgnore]);
   if Result=mrIgnore then
     Result:=mrOk;
 end;