diff --git a/components/synedit/synhighlighterlfm.pas b/components/synedit/synhighlighterlfm.pas
index 22d39640e0..f7c673b89f 100644
--- a/components/synedit/synhighlighterlfm.pas
+++ b/components/synedit/synhighlighterlfm.pas
@@ -122,6 +122,9 @@ type
     procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String;
       LineNumber: Integer); override;
     function GetToken: String; override;
+    {$IFDEF SYN_LAZARUS}
+    procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
+    {$ENDIF}
     function GetTokenAttribute: TSynHighlighterAttributes; override;
     function GetTokenKind: integer; override;
     function GetTokenPos: Integer; override;
@@ -496,6 +499,15 @@ begin
   SetString(Result, (FLine + fTokenPos), Len);
 end;
 
+{$IFDEF SYN_LAZARUS}
+procedure TSynLFMSyn.GetTokenEx(var TokenStart: PChar;
+  var TokenLength: integer);
+begin
+  TokenLength:=fTokenPos-Run;
+  TokenStart:=FLine + fTokenPos;
+end;
+{$ENDIF}
+
 function TSynLFMSyn.GetTokenAttribute: TSynHighlighterAttributes;
 begin
   case fTokenID of
diff --git a/components/synedit/synhighlighterperl.pas b/components/synedit/synhighlighterperl.pas
index 1960a73706..d823a74deb 100644
--- a/components/synedit/synhighlighterperl.pas
+++ b/components/synedit/synhighlighterperl.pas
@@ -375,6 +375,9 @@ type
     procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String;
       LineNumber:Integer); override;
     function GetToken: String; override;
+    {$IFDEF SYN_LAZARUS}
+    procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
+    {$ENDIF}
     function GetTokenAttribute: TSynHighlighterAttributes; override;
     function GetTokenKind: integer; override;
     function GetTokenPos: Integer; override;
@@ -2539,6 +2542,15 @@ begin
   SetString(Result, (FLine + fTokenPos), Len);
 end;
 
+{$IFDEF SYN_LAZARUS}
+procedure TSynPerlSyn.GetTokenEx(var TokenStart: PChar;
+  var TokenLength: integer);
+begin
+  TokenLength:=fTokenPos-Run;
+  TokenStart:=FLine + fTokenPos;
+end;
+{$ENDIF}
+
 function TSynPerlSyn.GetTokenID: TtkTokenKind;
 begin
   Result := fTokenId;
diff --git a/components/synedit/synhighlighterxml.pas b/components/synedit/synhighlighterxml.pas
index 551f2de78a..118778b87b 100644
--- a/components/synedit/synhighlighterxml.pas
+++ b/components/synedit/synhighlighterxml.pas
@@ -159,6 +159,9 @@ type
     function GetTokenID: TtkTokenKind;
     procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: string; LineNumber:Integer); override;
     function GetToken: string; override;
+    {$IFDEF SYN_LAZARUS}
+    procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
+    {$ENDIF}
     function GetTokenAttribute: TSynHighlighterAttributes; override;
     function GetTokenKind: integer; override;
     function GetTokenPos: Integer; override;
@@ -805,6 +808,15 @@ begin
   SetString(Result, (FLine + fTokenPos), len);
 end;
 
+{$IFDEF SYN_LAZARUS}
+procedure TSynXMLSyn.GetTokenEx(var TokenStart: PChar;
+  var TokenLength: integer);
+begin
+  TokenLength:=fTokenPos-Run;
+  TokenStart:=FLine + fTokenPos;
+end;
+{$ENDIF}
+
 function TSynXMLSyn.GetTokenID: TtkTokenKind;
 begin
   Result := fTokenId;