diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index ed185e28dc..545082f5cb 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -2326,7 +2326,7 @@ var BlockType: TEndBlockType;
   procedure RaiseUnknownBlockType;
   begin
     SaveRaiseException('internal codetool error in '
-      +'TPascalParserTool.ReadTilBlockEnd: unkown block type: '+GetAtom);
+      +'TPascalParserTool.ReadTilBlockEnd: unknown block type: '+GetAtom);
   end;
   
   procedure RaiseStrExpectedWithBlockStartHint(const Msg: string);
@@ -2488,7 +2488,7 @@ var BlockType: TEndBlockType;
   procedure RaiseUnknownBlockType;
   begin
     SaveRaiseException('internal codetool error in '
-      +'TPascalParserTool.ReadBackTilBlockEnd: unkown block type: '+GetAtom);
+      +'TPascalParserTool.ReadBackTilBlockEnd: unknown block type: '+GetAtom);
   end;
 
 var OldAtom: TAtomPosition;
diff --git a/lcl/interfaces/carbon/carbonlistviews.pp b/lcl/interfaces/carbon/carbonlistviews.pp
index 216fd81297..79931cfc05 100644
--- a/lcl/interfaces/carbon/carbonlistviews.pp
+++ b/lcl/interfaces/carbon/carbonlistviews.pp
@@ -1810,7 +1810,7 @@ var
   x, y: Integer;
   scrolltop, scrollleft : UInt32;
 
-// for some unkown reason, HIViewConvertPoint does return inaccurate x,y position for ListView
+// for some unknown reason, HIViewConvertPoint does return inaccurate x,y position for ListView
 // (because of focus ring?)
 const
   OfsY = -2;