diff --git a/components/codetools/ide/codyregistration.pas b/components/codetools/ide/codyregistration.pas
index b2e0dbe951..97bcf88180 100644
--- a/components/codetools/ide/codyregistration.pas
+++ b/components/codetools/ide/codyregistration.pas
@@ -150,7 +150,7 @@ begin
   RegisterIDEMenuCommand(itmViewIDEInternalsWindows, 'ShowCodeNodeInfo',
     crsShowCodeToolsNodeInfo, nil, nil, ShowCodeNodeInfoCommand);
 
-  // Show unit/identifier dictionary
+  // Show unit / identifier dictionary
   InitUnitDictionary;
   ShowIdentifierDictionaryCommand:=RegisterIDECommand(CmdCatCodeTools, 'ShowUnitDictionary',
     crsShowUnitIdentifierDictionary,
diff --git a/components/codetools/ide/codystrconsts.pas b/components/codetools/ide/codystrconsts.pas
index 46820dd667..8057c6ddc2 100644
--- a/components/codetools/ide/codystrconsts.pas
+++ b/components/codetools/ide/codystrconsts.pas
@@ -67,20 +67,20 @@ resourcestring
   crsOtherStaticLibraries = 'Other static libraries';
   crsOtherSharedLibraries = 'Other shared libraries';
   crsFrameworks = 'Frameworks';
-  crsShowUsedPpuFiles = 'Show used .ppu files ...';
-  crsInsertFileAtCursor = 'Insert file at cursor ...';
-  crsVirtualUnit = 'Virtual unit';
-  crsProjectOutput = 'Project output';
+  crsShowUsedPpuFiles = 'Show Used .ppu Files ...';
+  crsInsertFileAtCursor = 'Insert File at Cursor ...';
+  crsVirtualUnit = 'Virtual Unit';
+  crsProjectOutput = 'Project Output';
   crsHelp = '&Help';
   crsClose = '&Close';
-  crsAddAssignMethod = 'Add Assign method';
-  crsShowCodeToolsNodeInfo = 'Show CodeTools node info ...';
-  crsShowUnitIdentifierDictionary = 'Show unit/identifier dictionary ...';
-  crsAddAssignMethod2 = 'Add Assign method ...';
-  crsCopyDeclarationToClipboard = 'Copy declaration to clipboard';
-  crsCutDeclarationToClipboard = 'Cut declaration to clipboard';
-  crsExplodeAWithBlock = 'Explode a "With" block';
-  crsAddAWithBlock = 'Add a "With" block';
+  crsAddAssignMethod = 'Add Assign Method';
+  crsShowCodeToolsNodeInfo = 'Show CodeTools Node Info ...';
+  crsShowUnitIdentifierDictionary = 'Show Unit / Identifier Dictionary ...';
+  crsAddAssignMethod2 = 'Add Assign Method ...';
+  crsCopyDeclarationToClipboard = 'Copy declaration to Clipboard';
+  crsCutDeclarationToClipboard = 'Cut declaration to Clipboard';
+  crsExplodeAWithBlock = 'Explode a "With" Block';
+  crsAddAWithBlock = 'Add a "With" Block';
 
   crsCWError = 'Error';
   crsPleaseSelectSomeCodeInTheSourceEditorForANewWithBl = 'Please select some '