diff --git a/components/PascalScript/Samples/Debug/ide_editor.pas b/components/PascalScript/Samples/Debug/ide_editor.pas
index 126a6745a6..3875621aa9 100644
--- a/components/PascalScript/Samples/Debug/ide_editor.pas
+++ b/components/PascalScript/Samples/Debug/ide_editor.pas
@@ -142,8 +142,8 @@ var
 resourcestring
   STR_TEXT_NOTFOUND = 'Text not found';
   STR_UNNAMED = 'Unnamed';
-  STR_SUCCESSFULLY_COMPILED = 'Succesfully compiled';
-  STR_SUCCESSFULLY_EXECUTED = 'Succesfully executed';
+  STR_SUCCESSFULLY_COMPILED = 'Successfully compiled';
+  STR_SUCCESSFULLY_EXECUTED = 'Successfully executed';
   STR_RUNTIME_ERROR='[Runtime error] %s(%d:%d), bytecode(%d:%d): %s'; //Birb
   STR_FORM_TITLE = 'Editor';
   STR_FORM_TITLE_RUNNING = 'Editor - Running';
diff --git a/components/PascalScript/Samples/IDE/ide_editor.pas b/components/PascalScript/Samples/IDE/ide_editor.pas
index 9257d36fdb..529b12a3b0 100644
--- a/components/PascalScript/Samples/IDE/ide_editor.pas
+++ b/components/PascalScript/Samples/IDE/ide_editor.pas
@@ -142,8 +142,8 @@ var
 resourcestring
   STR_TEXT_NOTFOUND = 'Text not found';
   STR_UNNAMED = 'Unnamed';
-  STR_SUCCESSFULLY_COMPILED = 'Succesfully compiled';
-  STR_SUCCESSFULLY_EXECUTED = 'Succesfully executed';
+  STR_SUCCESSFULLY_COMPILED = 'Successfully compiled';
+  STR_SUCCESSFULLY_EXECUTED = 'Successfully executed';
   STR_RUNTIME_ERROR='[Runtime error] %s(%d:%d), bytecode(%d:%d): %s'; //Birb
   STR_FORM_TITLE = 'Editor';
   STR_FORM_TITLE_RUNNING = 'Editor - Running';
diff --git a/components/PascalScript/Samples/Import/fMain.pas b/components/PascalScript/Samples/Import/fMain.pas
index 5119caf9fa..9c588193ed 100644
--- a/components/PascalScript/Samples/Import/fMain.pas
+++ b/components/PascalScript/Samples/Import/fMain.pas
@@ -223,7 +223,7 @@ begin
     x1.AllowNoEnd := true;
     if x1.Compile(s) then
     begin
-      Outputtxt('Succesfully compiled');
+      Outputtxt('Successfully compiled');
       xpre.AdjustMessages(x1);
       OutputMsgs;
       if not x1.GetOutput(s) then
@@ -412,7 +412,7 @@ begin
     x1.OnUses := MyOnUses;
     if x1.Compile(s) then
     begin
-      Memo2.Lines.Add('Succesfully compiled');
+      Memo2.Lines.Add('Successfully compiled');
       xpre.AdjustMessages(x1);
       OutputMsgs;
       if not x1.GetOutput(s) then
diff --git a/components/PascalScript/Samples/Kylix/fMain.pas b/components/PascalScript/Samples/Kylix/fMain.pas
index a8839354d1..414e977a94 100644
--- a/components/PascalScript/Samples/Kylix/fMain.pas
+++ b/components/PascalScript/Samples/Kylix/fMain.pas
@@ -142,7 +142,7 @@ begin
   x1.OnExternalProc := DllExternalProc;
   if x1.Compile(Memo1.Text) then
   begin
-    Outputtxt('Succesfully compiled');
+    Outputtxt('Successfully compiled');
     OutputMsgs;
     if not x1.GetOutput(s) then
     begin
@@ -306,7 +306,7 @@ begin
   x1.OnUses := MyOnUses;
   if x1.Compile(Memo1.Text) then
   begin
-    Memo2.Lines.Add('Succesfully compiled');
+    Memo2.Lines.Add('Successfully compiled');
     OutputMsgs;
     if not x1.GetOutput(s) then
     begin
diff --git a/components/PascalScript/Samples/TestApp/fMain.pas b/components/PascalScript/Samples/TestApp/fMain.pas
index 1d1553929c..a8a95b697d 100644
--- a/components/PascalScript/Samples/TestApp/fMain.pas
+++ b/components/PascalScript/Samples/TestApp/fMain.pas
@@ -128,12 +128,12 @@ begin
   if PSScript.Compile then
   begin
     OutputMessages;
-    Memo2.Lines.Add('Compiled succesfully');
+    Memo2.Lines.Add('Compiled successfully');
     if not PSScript.Execute then
     begin
       Memo1.SelStart := PSScript.ExecErrorPosition;
       Memo2.Lines.Add(PSScript.ExecErrorToString +' at '+Inttostr(PSScript.ExecErrorProcNo)+'.'+Inttostr(PSScript.ExecErrorByteCodePosition));
-    end else Memo2.Lines.Add('Succesfully executed');
+    end else Memo2.Lines.Add('Successfully executed');
   end else
   begin
     OutputMessages;