<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<table class="diff-table tab-size " data-tab-size="8">
<tbody>
<tr>
<td class="blob-code blob-code-addition"><span
class="blob-code-inner">+ <span class="pl-k">if</span>
len = <span class="pl-c1">3</span> <span class="pl-k">then</span>
<span class="pl-k">begin</span></span> </td>
</tr>
<tr>
</tr>
</tbody>
</table>
<table class="diff-table tab-size " data-tab-size="8">
<tbody>
<tr>
<td class="blob-code blob-code-addition"> <span
class="blob-code-inner">+ Result.Red := StrToInt(<span
class="pl-s"><span class="pl-pds">'</span>$<span
class="pl-pds">'</span></span> + AText[<span
class="pl-c1">1</span>]);</span> </td>
</tr>
<tr>
</tr>
</tbody>
</table>
<table class="diff-table tab-size " data-tab-size="8">
<tbody>
<tr>
<td class="blob-code blob-code-addition"> <span
class="blob-code-inner">+ Result.Green := StrToInt(<span
class="pl-s"><span class="pl-pds">'</span>$<span
class="pl-pds">'</span></span> + AText[<span
class="pl-c1">2</span>]);</span> </td>
</tr>
<tr>
</tr>
</tbody>
</table>
<table class="diff-table tab-size " data-tab-size="8">
<tbody>
<tr>
<td class="blob-code blob-code-addition"> <span
class="blob-code-inner">+ Result.Blue := StrToInt(<span
class="pl-s"><span class="pl-pds">'</span>$<span
class="pl-pds">'</span></span> + AText[<span
class="pl-c1">3</span>]);</span> </td>
</tr>
<tr>
</tr>
</tbody>
</table>
<table class="diff-table tab-size " data-tab-size="8">
<tbody>
<tr>
<td class="blob-code blob-code-addition"> <span
class="blob-code-inner">+ <span class="pl-k">end</span>;</span>
</td>
</tr>
<tr>
</tr>
</tbody>
</table>
<span class="blob-code-inner"><br>
not OK: #abe means color components $aa $bb $ee, not $a $b $e.<br>
</span>
<pre class="moz-signature" cols="72">--
Regards,
Alexey</pre>
</body>
</html>