procedure ProcessHexValue(var Pos: Integer);
    var WordBeg: Integer;
    begin
        WordBeg := Pos;
        repeat
            Inc(Pos);
        until (Pos > Length(Line)) or not (Line[Pos] in HexChars);
        AddToken(WordBeg, Pos - WordBeg, tokHexValue);
    end;

WordBeg := Pos;

Inc(Pos);

... not (Line[Pos] in HexChars) ...

    procedure ProcessHexValue(var Pos: Integer);
    var WordBeg: Integer;
    begin
        WordBeg := Pos;
        Pos:=Pos+Length(PA.LiteralHexPrefix);
        while (Pos <= Length(Line)) and (Line[Pos] in HexChars) do
              Inc(Pos);
        AddToken(WordBeg, Pos - WordBeg, tokHexValue);
    end;

    // Тип - массив размеров символов текущего шрифта
    TCharWidths         = array [Boolean] of array [Char] of Byte;

procedure TMPCustomSyntaxMemo.ShowCaret;
var n, ScreenRow: Integer;
    Cp: TPoint;
begin
    if  (Lines.UpdateCount = 0)
    and Lines.IsValidLineIndex(Range.PosY)
    and IsLineVisible(Range.PosY, @ScreenRow) then begin
        n := CharPosToPixOffset(Range.PosX, Range.PosY);
        Cp := PixOffsetToWndOffsetEx(n, ScreenRow);
        { DONE : Thanks Defm. }
        with TextRowRect[ScreenRow] do  // new
            if InRange(Cp.X, Left, Right - 1) then begin  // new
                Windows.SetCaretPos(Cp.X, Cp.Y);
                Windows.ShowCaret(Handle);
                fCaretVisible := True;
            end;  // new
    end;
end;

{$DEFINE SYNDEBUG}

(*                // Подключение прерывания юзера
                if (stToken = tokCustomDraw) and Assigned(fOnDrawWord) then
                    R.BottomRight := Point(TextIndent + CharPosToPixOffset(stStart+stLength, s, Sp), fCharHeight);
                    fOnDrawWord(self, ACanvas, R, Row, wi ) d ;
                end;     *)

while n > 0 do begin
...

while n > 0 do
begin
...

while HaveDoIt() do
  if Length(s) > 7 do
     try
       case s[i] of
       'a': ;
       ...
       else
         DoSomething();
       end
     finally
       FreeAndNil(..)
     end;

OpenFile c:\test.txt

procedure TMPSynMemoRange.CommentBlock;
begin
    with fRichMemo do begin
        Lines.BeginUpdate;
        Lines[StartY] := '(*' + Lines[StartY];
        Lines[EndY] := Lines[EndY] + '*)';
        Lines.EndUpdate;
    end;
end;

// Определение типа токена (Pascal Keywords Analize)
procedure TFormMain.UserToken(Sender: TObject; Word: string; Pos, Line: Integer; var Token: TToken);
var n: Integer;
begin
    if fDelphiKeyWords.Find(LowerCase(Word), n) then
        Token := TToken(fDelphiKeyWords.Objects[n]);
    case Token of
    tokIndex:   with Memo.Lines.Parser[Line] do
                    if (Count = 0) or (Tokens[0].stToken <> tokProperty) then
                        Token := tokText;
    end;
end;