diff --git a/components/codetools/examples/addfpprofcalls.lpr b/components/codetools/examples/addfpprofcalls.lpr
index 7d150f7ef0..77560505b3 100644
--- a/components/codetools/examples/addfpprofcalls.lpr
+++ b/components/codetools/examples/addfpprofcalls.lpr
@@ -124,7 +124,7 @@ begin
   // delete space behind
   while Tool.Src[ToPos] in [' ',#9] do inc(ToPos);
   if not Changer.Replace(gtNone,gtNone,FromPos,ToPos,'') then
-    Exception.Create('source not writable');
+    raise Exception.Create('source not writable');
 end;
 
 begin
@@ -225,7 +225,7 @@ begin
                   EnterInsertPos,EnterInsertPos,
                   Beauty.GetIndentStr(Beauty.GetLineIndent(Tool.Src,Node.StartPos)+Indent)+EnterCall+'('''+Signature+''');')
                 then
-                  Exception.Create('source not writable');
+                  raise Exception.Create('source not writable');
               end;
               if (not HasExitCall) then begin
                 // add Exit call
@@ -233,7 +233,7 @@ begin
                   ExitInsertPos,ExitInsertPos,
                   Beauty.GetIndentStr(Beauty.GetLineIndent(Tool.Src,Node.StartPos)+Indent)+ExitCall+'('''+Signature+''');')
                 then
-                  Exception.Create('source not writable');
+                  raise Exception.Create('source not writable');
               end;
             end;
           end;
diff --git a/components/fpvectorial/fpvectorial.pas b/components/fpvectorial/fpvectorial.pas
index fd0a90600c..628e192fbe 100644
--- a/components/fpvectorial/fpvectorial.pas
+++ b/components/fpvectorial/fpvectorial.pas
@@ -4835,7 +4835,7 @@ begin
   if PointsEnd = nil then
   begin
     if Len <> 0 then
-      Exception.Create('[TPath.AppendSegment] Assertion failed Len <> 0 with PointsEnd = nil');
+      raise Exception.Create('[TPath.AppendSegment] Assertion failed Len <> 0 with PointsEnd = nil');
 
     Points := ASegment;
     PointsEnd := ASegment;
diff --git a/components/jitclasses/jittypes.pas b/components/jitclasses/jittypes.pas
index 551c9498c9..70af662441 100644
--- a/components/jitclasses/jittypes.pas
+++ b/components/jitclasses/jittypes.pas
@@ -526,7 +526,7 @@ begin
   debuglnEnter(['> TRefCountedJitReference.Destroy ',dbgs(self),' ' ]); try
   {$ENDIF}
   if FRefCount > 0 then raise
-    exception.Create('destroy while referrenced');
+    raise exception.Create('destroy while referrenced');
 
   DoRefCountZero;
   inherited Destroy;