object TPersHolder
  P.Name = 'Object Pascal'
  P.SyntaxBlocks = <
    item
      Name = 'Default'
      FIIntNum = 1
      FIFloatNum = 1
      FIHexNum = 1
      UseComments = True
      UseSingleLineComments = True
      UseMultiLineComments = True
      UseStrings = True
      UseSingleLineStrings = True
      UseNumbers = True
      UsePrefixedNumbers = True
      UseKeywords = True
      BlockDelimiters = <>
      SingleLineCommentDelimiters = <
        item
          FontID = 5
          LeftDelimiter = '//'
        end>
      MultiLineCommentDelimiters = <
        item
          FontID = 5
          LeftDelimiter = '{'
          RightDelimiter = '}'
        end
        item
          FontID = 5
          LeftDelimiter = '(*'
          RightDelimiter = '*)'
        end>
      SingleLineStringDelimiters = <
        item
          FontID = 7
          LeftDelimiter = #39
          RightDelimiter = #39
        end>
      NumPrefixes = <
        item
          LeftDelimiter = '$'
        end
        item
          LeftDelimiter = '#$'
        end
        item
          LeftDelimiter = '#'
        end>
      KeywordSets = <
        item
          FontID = 8
          Name = 'reserved'
          Keywords = 
            'absolute,abstract,and,array,as,asm,assembler,at,automated,begin,' +
            'case,cdecl,class,const,constructor,contains,default,destructor,d' +
            'ispid,dispinterface,div,do,downto,dynamic,else,end,except,export' +
            ',exports,external,far,file,finalization,finally,for,forward,func' +
            'tion,goto,if,implementation,implements,in,index,inherited,initia' +
            'lization,inline,interface,is,label,library,message,mod,name,near' +
            ',nil,nodefault,not,object,of,on,or,out,overload,override,package' +
            ',packed,pascal,private,procedure,program,property,protected,publ' +
            'ic,published,raise,read,readonly,record,register,reintroduce,rep' +
            'eat,requires,resident,resourcestring,safecall,set,shl,shr,stdcal' +
            'l,stored,string,then,threadvar,to,try,type,unit,until,uses,var,v' +
            'irtual,while,with,write,writeonly,xor'
        end>
    end>
  P.FontTable = <
    item
      FontID = 1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      BackColor = clBlack
    end
    item
      FontID = 5
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 48896
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsItalic]
      BackColor = clBlack
    end
    item
      FontID = 7
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      BackColor = clBlack
    end
    item
      FontID = 8
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      BackColor = clBlack
    end>
end
