diff --git a/components/codetools/codecompletiontool.pas b/components/codetools/codecompletiontool.pas
index 5a1f0fb272..ac76139024 100644
--- a/components/codetools/codecompletiontool.pas
+++ b/components/codetools/codecompletiontool.pas
@@ -778,7 +778,7 @@ begin
           NearestAVLNodeBehind:=NearestAVLNode;
         end;
         
-        // choose the nearest of both (distance measured in emtpy lines,
+        // choose the nearest of both (distance measured in empty lines,
         // this way blocks of procs are kept)
         if (NearestAVLNodeInFront<>nil) and (NearestAVLNodeBehind<>nil) then
         begin
@@ -5521,7 +5521,7 @@ begin
     ProcBodyNodes:=GatherProcNodes(TypeSectionNode,
                         [phpInUpperCase,phpIgnoreForwards,phpOnlyWithClassname],
                          ExtractClassName(CodeCompleteClassNode,true));
-    // collect all emtpy bodies
+    // collect all empty bodies
     AVLNode:=ProcBodyNodes.FindLowest;
     while AVLNode<>nil do begin
       NextAVLNode:=ProcBodyNodes.FindSuccessor(AVLNode);
diff --git a/ide/checklfmdlg.pas b/ide/checklfmdlg.pas
index f5e7260609..d87320b39f 100644
--- a/ide/checklfmdlg.pas
+++ b/ide/checklfmdlg.pas
@@ -340,7 +340,7 @@ end;
 
 procedure ClearDanglingEvents(ListOfPInstancePropInfo: TFPList);
 const
-  EmtpyMethod: TMethod = (code:nil; data:nil);
+  EmptyMethod: TMethod = (code:nil; data:nil);
 var
   i: Integer;
   p: PInstancePropInfo;
@@ -349,7 +349,7 @@ begin
   for i:=0 to ListOfPInstancePropInfo.Count-1 do begin
     p:=PInstancePropInfo(ListOfPInstancePropInfo[i]);
     debugln('ClearDanglingEvents ',DbgSName(p^.Instance),' ',p^.PropInfo^.Name);
-    SetMethodProp(p^.Instance,p^.PropInfo,EmtpyMethod);
+    SetMethodProp(p^.Instance,p^.PropInfo,EmptyMethod);
   end;
 end;
 
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 306ce7c09c..e09f77a759 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -2106,7 +2106,7 @@ resourcestring
   lisErrorLoadingFile2 = 'Error loading file "%s":%s%s';
   lisNoneClickToChooseOne = 'none, click to choose one';
   lisTreeNeedsRefresh = 'Tree needs refresh';
-  lisEMDEmtpyMethods = 'Emtpy Methods';
+  lisEMDEmtpyMethods = 'Empty Methods';
   lisEMDSearchInTheseClassSections = 'Search in these class sections:';
   lisUnableToLoadPackage = 'Unable to load package %s%s%s';
   lisSAMThisMethodCanNotBeOverriddenBecauseItIsDefinedInTh = 'This method can '