object TPersHolder
  P = <
    item
      Name = 'Error line'
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      UpdateMemoColors = mcNone
      UseMemoColor = False
      UseMemoFont = False
    end
    item
      Name = 'String'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Comment'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 33023
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Identifier'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Integer'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Float'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Reserved words'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Whitespace'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Variable'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Variable in string'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Html tags'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Html params'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'BreakPoint'
      Color = 8454143
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      UpdateMemoColors = mcNone
      UseMemoColor = False
      UseMemoFont = False
    end
    item
      Name = 'Error line'
      Color = clMaroon
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      UpdateMemoColors = mcNone
      UseMemoColor = False
      UseMemoFont = False
    end
    item
      Name = 'Delimeters'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end
    item
      Name = 'Control Chars'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      UpdateMemoColors = mcNone
      UseMemoColor = True
      UseMemoFont = False
    end>
end