diff --git a/ide/emptymethodsdlg.pas b/ide/emptymethodsdlg.pas
index 5496639357..09a7d44769 100644
--- a/ide/emptymethodsdlg.pas
+++ b/ide/emptymethodsdlg.pas
@@ -120,8 +120,9 @@ begin
         ErrMsg:='';
         LazarusIDE.DoJumpToCodeToolBossError;
       end else begin
-        MessageDlg('No class',
-          'No class at '+Code.Filename+'('+IntToStr(Caret.Y)+','+IntToStr(Caret.X)+')',
+        MessageDlg(lisEMDNoClass,
+          Format(lisEMDNoClassAt, [Code.Filename, IntToStr(Caret.Y), IntToStr(
+            Caret.X)]),
           mtError,[mbCancel],0);
       end;
       exit;
@@ -141,8 +142,8 @@ begin
     CodeToolBoss.FreeListOfPCodeXYPosition(ListOfPCodeXYPosition);
     if ErrMsg<>'' then begin
       MessageDlg(lisCCOErrorCaption,
-        'Unable to show empty methods of the current class, because'+#13
-        +ErrMsg,mtError,[mbCancel],0);
+        Format(lisEMDUnableToShowEmptyMethodsOfTheCurrentClassBecause, [#13,
+          ErrMsg]), mtError, [mbCancel], 0);
     end;
   end;
 end;
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 7590a313c4..a6f5280985 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -2175,6 +2175,10 @@ resourcestring
   lisEMDOnlyPublished = 'Only published';
   lisEMDFoundEmptyMethods = 'Found empty methods:';
   lisEMDRemoveMethods = 'Remove methods';
+  lisEMDNoClass = 'No class';
+  lisEMDNoClassAt = 'No class at %s(%s,%s)';
+  lisEMDUnableToShowEmptyMethodsOfTheCurrentClassBecause = 'Unable to show '
+    +'empty methods of the current class, because%s%s';
   lisRoot = 'Root';
   lisCopyDescription = 'Copy description to clipboard';
   lisUseIdentifierInAt = 'Use identifier %s in %s at %s';