diff --git a/components/synedit/syncompletion.pas b/components/synedit/syncompletion.pas
index 9576847928..37618e8a70 100644
--- a/components/synedit/syncompletion.pas
+++ b/components/synedit/syncompletion.pas
@@ -82,11 +82,11 @@ type
   end;
 
 
-  TSynComletionLongHintType = (sclpNone,
-                               sclpExtendRightOnly,
-                               sclpExtendHalfLeft,
-                               sclpExtendUnlimitedLeft
-                              );
+  TSynCompletionLongHintType = (sclpNone,
+                                sclpExtendRightOnly,
+                                sclpExtendHalfLeft,
+                                sclpExtendUnlimitedLeft
+                               );
 
   { TSynBaseCompletionForm }
 
@@ -116,13 +116,13 @@ type
     FHint: TSynBaseCompletionHint;
     FHintTimer: TTimer;
     FLongLineHintTime: Integer;
-    FLongLineHintType: TSynComletionLongHintType;
+    FLongLineHintType: TSynCompletionLongHintType;
     procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
     procedure SetCurrentString(const Value: string);
     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
     procedure KeyPress(var Key: char); override;
     procedure Paint; override;
-    procedure AppDeactivated(Sender: TObject); // Because Form.Deactrivate isn't called
+    procedure AppDeactivated(Sender: TObject); // Because Form.Deactivate isn't called
     procedure Deactivate; override;
     procedure SelectPrec;
     procedure SelectNext;
@@ -184,7 +184,7 @@ type
       read FTextSelectedColor write FTextSelectedColor;
     property LongLineHintTime: Integer read FLongLineHintTime
              write SetLongLineHintTime default 0;
-    property LongLineHintType: TSynComletionLongHintType read FLongLineHintType
+    property LongLineHintType: TSynCompletionLongHintType read FLongLineHintType
              write FLongLineHintType default sclpExtendRightOnly;
   end;
 
@@ -199,7 +199,7 @@ type
     function GetCaseSensitive: boolean;
     function GetClSelect: TColor;
     function GetLongLineHintTime: Integer;
-    function GetLongLineHintType: TSynComletionLongHintType;
+    function GetLongLineHintType: TSynCompletionLongHintType;
     function GetOnMeasureItem: TSynBaseCompletionMeasureItem;
     function GetOnPositionChanged: TNotifyEvent;
     procedure SetCaseSensitive(const AValue: boolean);
@@ -215,7 +215,7 @@ type
     procedure SetCurrentString(const Value: string);
     procedure SetItemList(const Value: TStrings);
     procedure SetLongLineHintTime(const AValue: Integer);
-    procedure SetLongLineHintType(const AValue: TSynComletionLongHintType);
+    procedure SetLongLineHintType(const AValue: TSynCompletionLongHintType);
     procedure SetNbLinesInWindow(const Value: Integer);
     procedure SetOnCancel(const Value: TNotifyEvent);
     procedure SetOnKeyPress(const Value: TKeyPressEvent);
@@ -278,7 +278,7 @@ type
     property Width: Integer read FWidth write SetWidth;
     property LongLineHintTime: Integer read GetLongLineHintTime
              write SetLongLineHintTime default 0;
-    property LongLineHintType: TSynComletionLongHintType read GetLongLineHintType
+    property LongLineHintType: TSynCompletionLongHintType read GetLongLineHintType
              write SetLongLineHintType default sclpExtendRightOnly;
   end;
 
@@ -1061,7 +1061,7 @@ begin
   Form.LongLineHintTime := AValue;
 end;
 
-procedure TSynBaseCompletion.SetLongLineHintType(const AValue: TSynComletionLongHintType);
+procedure TSynBaseCompletion.SetLongLineHintType(const AValue: TSynCompletionLongHintType);
 begin
   Form.LongLineHintType := AValue;
 end;
@@ -1118,7 +1118,7 @@ begin
   Result := Form.LongLineHintTime;
 end;
 
-function TSynBaseCompletion.GetLongLineHintType: TSynComletionLongHintType;
+function TSynBaseCompletion.GetLongLineHintType: TSynCompletionLongHintType;
 begin
   Result := Form.LongLineHintType;
 end;
diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp
index 2bcc5acb09..a82acab76f 100644
--- a/ide/editoroptions.pp
+++ b/ide/editoroptions.pp
@@ -929,7 +929,7 @@ type
   TEditorOptions = class(TAbstractIDEEnvironmentOptions)
   private
     FCompletionLongLineHintInMSec: Integer;
-    FCompletionLongLineHintType: TSynComletionLongHintType;
+    FCompletionLongLineHintType: TSynCompletionLongHintType;
     FHideSingleTabInWindow: Boolean;
     xmlconfig: TRttiXMLConfig;
 
@@ -1154,7 +1154,7 @@ type
       write FAutoRemoveEmptyMethods default False;
     property CompletionLongLineHintInMSec: Integer
              read FCompletionLongLineHintInMSec write FCompletionLongLineHintInMSec;
-    property CompletionLongLineHintType: TSynComletionLongHintType
+    property CompletionLongLineHintType: TSynCompletionLongHintType
              read FCompletionLongLineHintType write FCompletionLongLineHintType
              default sclpExtendRightOnly;
 
diff --git a/ide/frames/editor_codetools_options.pas b/ide/frames/editor_codetools_options.pas
index 66580d482d..19d0095222 100644
--- a/ide/frames/editor_codetools_options.pas
+++ b/ide/frames/editor_codetools_options.pas
@@ -241,7 +241,7 @@ begin
     AutoRemoveEmptyMethods := AutoRemoveEmptyMethodsOnSave.Checked;
 
     CompletionLongLineHintInMSec := CompletionDropDownHintTrackBar.Position;
-    CompletionLongLineHintType :=  TSynComletionLongHintType(CompletionDropDownHint.ItemIndex);
+    CompletionLongLineHintType :=  TSynCompletionLongHintType(CompletionDropDownHint.ItemIndex);
 
     MarkupCurWordTime := MarkupWordTimeTrackBar.Position;
     MarkupCurWordFullLen := MarkupWordFullLenSpin.Value;