diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 8834134bf5..a23e547894 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -662,6 +662,12 @@ resourcestring
   lisOpenProjectFile = 'Open Project File';
   lisLazarusProjectInfoFile = 'Lazarus Project Info file';
   lisAllFiles = 'All Files';
+  lisProjectClosed = 'Project closed';
+  lisTheProjectIsClosedThereAreNowThreePossibilitiesHin = 'The project is '
+    +'closed. There are now three possibilities.%sHint: You do not need to '
+    +'close a project yourself, since this is done automatically.';
+  lisQuitLazarus = 'Quit Lazarus';
+  lisCreateNewProject = 'Create new project';
   lisOpenPackageFile = 'Open Package File';
   lisSaveSpace = 'Save ';
   lisSelectDFMFiles = 'Select Delphi form files (*.dfm)';
diff --git a/ide/main.pp b/ide/main.pp
index a8cfbedf8e..1524b8526c 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -3093,10 +3093,11 @@ var
 begin
   DoCloseProject;
   while Project1=nil do begin
-    DlgResult:=QuestionDlg('Project closed',
-      'The project is closed. There are now three possibilities:',
+    DlgResult:=QuestionDlg(lisProjectClosed,
+      Format(lisTheProjectIsClosedThereAreNowThreePossibilitiesHin, [#13]),
       mtInformation,
-      [mrNo,'Quit Lazarus',mrYes,'Create new project',mrOk,'Open project'],0);
+      [mrNo, lisQuitLazarus, mrYes, lisCreateNewProject, mrOk, lisOpenProject2
+        ], 0);
     case DlgResult of
     mrNo:
       if QuitIDE then exit;