diff --git a/ide/fpdoceditwindow.pas b/ide/fpdoceditwindow.pas
index 428668940f..ebf72a0fa9 100644
--- a/ide/fpdoceditwindow.pas
+++ b/ide/fpdoceditwindow.pas
@@ -234,9 +234,9 @@ begin
   InsertRemarkButton.Hint := lisCodeHelpHintRemarkTag;
   InsertVarTagButton.Hint := lisCodeHelpHintVarTag;
 
-  CreateButton.Caption := 'Create help item';
+  CreateButton.Caption := lisCodeHelpCreateButton;
   CreateButton.Enabled:=false;
-  SaveButton.Caption := 'Save';
+  SaveButton.Caption := lisCodeHelpSaveButton;
   SaveButton.Enabled:=false;
 
   AddLinkButton.Caption := lisCodeHelpAddLinkButton;
@@ -390,10 +390,10 @@ begin
         if ShortDescr<>'' then begin
           // the inherited entry already contains a description.
           // ask if it should be really replaced
-          if QuestionDlg('Confirm replace',
+          if QuestionDlg(lisCodeHelpConfirmreplace,
             GetContextTitle(Element)+' already contains the help:'+#13
             +ShortDescr,
-            mtConfirmation,[mrYes,'Replace',mrCancel],0)<>mrYes then exit;
+            mtConfirmation,[mrYes,lisCodeHelpReplaceButton,mrCancel],0)<>mrYes then exit;
         end;
       end;
     end else begin
@@ -521,13 +521,13 @@ begin
   if i<0 then begin
     InheritedShortEdit.Text:='';
     InheritedShortEdit.Enabled:=false;
-    InheritedShortLabel.Caption:='no inherited description found';
+    InheritedShortLabel.Caption:=lisCodeHelpnoinheriteddescriptionfound;
   end else begin
     Element:=fChain[i];
     ShortDescr:=Element.FPDocFile.GetValueFromNode(Element.ElementNode,fpdiShort);
     InheritedShortEdit.Text:=ShortDescr;
     InheritedShortEdit.Enabled:=true;
-    InheritedShortLabel.Caption:='Short description of '
+    InheritedShortLabel.Caption:=lisCodeHelpShortdescriptionof+' '
                                  +GetContextTitle(Element);
   end;
   MoveToInheritedButton.Enabled:=(fChain<>nil)
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index b134f0a79f..c5b50a108f 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -3472,6 +3472,8 @@ resourcestring
   lisMenuFPDocEditor = 'FPDoc Editor';
   lisCodeHelpMainFormCaption = 'FPDoc editor';
   lisCodeHelpNoTagCaption = '<NONE>';
+  lisCodeHelpnoinheriteddescriptionfound = 'no inherited description found';
+  lisCodeHelpShortdescriptionof = 'Short description of';
   lisCodeHelpNoDocumentation = 'Documentation entry does not exist';
   lisCodeHelpInherited = 'Inherited';
   lisCodeHelpShortTag = 'Short';
@@ -3482,6 +3484,8 @@ resourcestring
   lisCodeHelpDeletePathButton = 'Remove path';
   lisEONOTEOnlyAbsolutePathsAreSupportedNow = 'NOTE: only absolute paths are '
     +'supported now';
+  lisCodeHelpConfirmreplace = 'Confirm replace';
+  lisCodeHelpReplaceButton = 'Replace';
   lisCodeHelpPathsGroupBox = 'LazDoc settings';
   lisCodeHelpHintBoldFormat = 'Insert bold formatting tag';
   lisCodeHelpHintItalicFormat = 'Insert italic formatting tag';
@@ -3491,6 +3495,8 @@ resourcestring
   lisCodeHelpHintVarTag = 'Insert var formatting tag';
   lisCodeHelpAddLinkButton = 'Add link';
   lisCodeHelpDeleteLinkButton = 'Delete link';
+  lisCodeHelpCreateButton = 'Create help item';
+  lisCodeHelpSaveButton = 'Save';
   lisCodeHelpExampleTag = 'Example';
   lisCodeHelpBrowseExampleButton = 'Browse';
   lisLDMoveEntriesToInherited = 'Move entries to inherited';