TSynDreamSyn  {first Identifier is considered to be the Class Name }
tk             {second Identifier is considered to be the Identifier Prefix }
IdentStart '_', 'a'..'z', 'A'..'Z':: '_', '0'..'9', 'a'..'z', 'A'..'Z'::

TOKENTYPES
Identifier
Comment Foreground=clGreen
Space
String Foreground=clRed
VarIC Foreground=clBlue
Test Background=clRed|Style=[fsItalic]
|><|

KEYS VarIC
var
const
int
string
float
|><|

KEYS Test
SynEdit
lenny
|><|

CHARS

'A'..'Z', 'a'..'z', '_':: Ident
BeginProc
  fTokenID := IdentKind((fLine + Run));
  inc(Run, fStringLen);
  while Identifiers[fLine[Run]] do
    Inc(Run);
EndProc

|><|

ENCLOSEDBY
Comment,StdComment,#,#
String,String,","

|><|

SAMPLESOURCE
var string test = "This is a test"
var int test2 = 10
const float = 0.1
|><|

procedure TSynDreamSyn.Next;
begin
  fTokenPos := Run;
  case fRange of
  else
    begin
      fRange := rsUnknown;
      fProcTable[fLine[Run]];
    end;
  end;
end;

case frange of
else
begin
.
.
.

case frange of
23:Machdas;
56:Machdies;