--- a/SynHighlighterLua.pas
+++ b/SynHighlighterLua.pas
@@ -157,7 +157,7 @@
     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;
+    procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
     {$ENDIF}
     function GetTokenAttribute: TSynHighlighterAttributes; override;
     function GetTokenKind: integer; override;
@@ -866,8 +866,8 @@
 end;
 
 {$IFDEF SYN_LAZARUS}
-procedure TSynLuaSyn.GetTokenEx(var TokenStart: PChar;
-  var TokenLength: integer);
+procedure TSynLuaSyn.GetTokenEx(out TokenStart: PChar;
+  out TokenLength: integer);
 begin
   TokenLength:=Run-fTokenPos;
   TokenStart:=FLine + fTokenPos;