diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 386b5f5b2a..6177ea5a74 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -450,7 +450,6 @@ type
     function GetCanUndo: Boolean;
     function GetCaretXY: TPoint;
     function GetFoldedCodeColor: TSynSelectedColor;
-    function GetLines: TStrings; override;
     function GetMarkup(Index: integer): TSynEditMarkup;
     function GetMarkupByClass(Index: TSynEditMarkupClass): TSynEditMarkup;
     {$IFDEF SYN_LAZARUS}
@@ -584,6 +583,7 @@ type
     procedure RealSetText(const Value: TCaption); override;
     procedure IncreaseChangeStamp;
     {$ENDIF}
+    function GetLines: TStrings; override;
     function GetViewedTextBuffer: TSynEditStrings; override;
     function GetTextBuffer: TSynEditStrings; override;
     procedure SetLines(Value: TStrings);  override;
diff --git a/components/synedit/synedittexttabexpander.pas b/components/synedit/synedittexttabexpander.pas
index 854611830f..ac81520d97 100644
--- a/components/synedit/synedittexttabexpander.pas
+++ b/components/synedit/synedittexttabexpander.pas
@@ -38,7 +38,7 @@ type
 
 { TSynEditStringTabExpander }
 
-TSynEditStringTabExpander = class(TSynEditStringsLinked)
+  TSynEditStringTabExpander = class(TSynEditStringsLinked)
   private
     FTabWidth: integer;
     FIndexOfLongestLine: Integer;
@@ -51,13 +51,13 @@ TSynEditStringTabExpander = class(TSynEditStringsLinked)
     function  GetTabWidth : integer;
     procedure SetTabWidth(const AValue : integer);
     function  GetExpandedString(Index: integer): string; override;
-    function  GetPhysicalCharWidths(const Line: String; Index: Integer): TPhysicalCharWidths; override;
     function  GetLengthOfLongestLine: integer; override;
     property LengthOfLine[Index: Integer]: integer
       read GetLengthOfLine write SetLengthOfLine;
   public
     constructor Create(ASynStringSource: TSynEditStrings);
     destructor Destroy; override;
+    function GetPhysicalCharWidths(const Line: String; Index: Integer): TPhysicalCharWidths; override;
 
     property LengthOfLongestLine: integer read GetLengthOfLongestLine;
   public