object TPersHolder
  P.Name = 'PasTerp'
  P.SyntaxBlocks = <
    item
      Name = 'Default'
      FIIntNum = 1
      FIFloatNum = 1
      FIHexNum = 1
      UseComments = True
      UseMultiLineComments = True
      UseStrings = True
      UseSingleLineStrings = True
      UseNumbers = True
      UseKeywords = True
      BlockDelimiters = <>
      MultiLineCommentDelimiters = <
        item
          FontID = 4
          LeftDelimiter = '{'
          RightDelimiter = '}'
        end>
      SingleLineStringDelimiters = <
        item
          FontID = 5
          LeftDelimiter = #39
          RightDelimiter = #39
        end>
      KeywordSets = <
        item
          FontID = 6
          Name = 'reserved'
          Keywords = 
            'ARRAY,BEGIN,CASE,CONST,CONSTRUCTOR,DESTRUCTOR,DO,ELSE,END,ENDIF,' +
            'ENDPROC,ENDVAR,ENDWHILE,EXTERNAL,FAR,FOR,FUNCTION,IF,IMPLEMENTAT' +
            'ION,INHERITED,INTERFACE,LOCALVAR,MODULE,OBJECT,OF,PROCEDURE,PROG' +
            'RAM,RECORD,REPEAT,THEN,TO,TYPE,UNIT,UNTIL,USES,VAR,VIRTUAL,WHILE' +
            ',WITH'
        end>
    end>
  P.FontTable = <
    item
      FontID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      FontID = 4
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
    end
    item
      FontID = 6
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end>
end
