CSS CONFIG:
<style TYPE="text/css"> <!-- body { font-family: verdana; } pre { font-family: courier; font-size: 0.7em;} span.Symbol { color: #00FFFF; } span.String { color: #FF00FF; } span.HexNumber { color: #FF00FF; } span.Comment { color: #F4F889; } span.Keyword { color: #FF8000; font-weight: bold; } span.Directive { color: #CC3333; font-weight: bold; } span.Identifier { color: #CCCCCC; } span.Number { color: #FFFF00; } --> </style>

HIGHLIGHTED HTML:
<pre> <span class="Keyword">While</span> <span class="Keyword">Not</span><span class="Symbol">(</span><span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">IsEOS</span><span class="Symbol">)</span> <span class="Keyword">Do</span> <span class="Keyword">Begin</span> <span class="Keyword">If</span> <span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">TkType</span> <span class="Symbol">=</span> <span class="Identifier">ccHTMLParser_BGTag</span> <span class="Keyword">Then</span> <span class="Keyword">Begin</span> <span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Skip</span><span class="Symbol">;</span> <span class="Keyword">If</span> <span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">TkType</span> <span class="Symbol">=</span> <span class="Identifier">ccHTMLParser_Slash</span> <span class="Keyword">Then</span> <span class="Keyword">Begin</span> <span class="Keyword">If</span> <span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">TkType</span> <span class="Symbol">=</span> <span class="Identifier">ccHTMLParser_Ident</span> <span class="Keyword">Then</span> <span class="Keyword">If</span> <span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Token</span> <span class="Symbol">=</span> <span class="Identifier">Finishing</span> <span class="Keyword">Then</span> <span class="Keyword">Begin</span> <span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Skip</span><span class="Symbol">;</span> <span class="Keyword">If</span> <span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">TkType</span> <span class="Symbol"><></span> <span class="Identifier">ccHTMLParser_EDTag</span> <span class="Keyword">Then</span> <span class="Keyword">Raise</span> <span class="Identifier">EHTMLLoader</span><span class="Symbol">.</span><span class="Identifier">Create</span><span class="Symbol">(</span><span class="String">'Expected > at '</span> <span class="Symbol">+</span> <span class="Identifier">IntToStr</span><span class="Symbol">(</span><span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Row</span><span class="Symbol">)</span> <span class="Symbol">+</span> <span class="String">','</span> <span class="Symbol">+</span> <span class="Identifier">IntToStr</span><span class="Symbol">(</span><span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Col</span><span class="Symbol">)</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Identifier">Exit</span><span class="Symbol">;</span> <span class="Keyword">End</span> <span class="Keyword">Else</span> <span class="Keyword">Raise</span> <span class="Identifier">EHTMLLoader</span><span class="Symbol">.</span><span class="Identifier">Create</span><span class="Symbol">(</span><span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Token</span> <span class="Symbol">+</span> <span class="String">'cannot end '</span> <span class="Symbol">+</span> <span class="Identifier">Finishing</span> <span class="Symbol">+</span> <span class="String">' sequence of childs at '</span> <span class="Symbol">+</span> <span class="Identifier">IntToStr</span><span class="Symbol">(</span><span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Row</span><span class="Symbol">)</span> <span class="Symbol">+</span> <span class="String">','</span> <span class="Symbol">+</span> <span class="Identifier">IntToStr</span><span class="Symbol">(</span><span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Col</span><span class="Symbol">)</span><span class="Symbol">)</span> <span class="Keyword">Else</span> <span class="Keyword">Raise</span> <span class="Identifier">EHTMLLoader</span><span class="Symbol">.</span><span class="Identifier">Create</span><span class="Symbol">(</span><span class="String">'Expected tag name at '</span> <span class="Symbol">+</span> <span class="Identifier">IntToStr</span><span class="Symbol">(</span><span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Row</span><span class="Symbol">)</span> <span class="Symbol">+</span> <span class="String">','</span> <span class="Symbol">+</span> <span class="Identifier">IntToStr</span><span class="Symbol">(</span><span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Col</span><span class="Symbol">)</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Keyword">End</span> <span class="Keyword">Else</span> <span class="Identifier">Previous</span><span class="Symbol">.</span><span class="Identifier">AppendChild</span><span class="Symbol">(</span><span class="Identifier">ParseTag</span><span class="Symbol">)</span> <span class="Keyword">Else</span> <span class="Identifier">Previous</span><span class="Symbol">.</span><span class="Identifier">AppendChild</span><span class="Symbol">(</span><span class="Identifier">THTMLText</span><span class="Symbol">.</span><span class="Identifier">Create</span><span class="Symbol">(</span><span class="Identifier">Source</span><span class="Symbol">.</span><span class="Identifier">Token</span><span class="Symbol">)</span><span class="Symbol">)</span><span class="Symbol">;</span> <span class="Keyword">End</span><span class="Symbol">;</span><!---------------------> <!-- End of File ------> <!---------------------> </pre>