高手解答，关于listview的,该如何解决

高手解答，关于listview的
我想请问一下，制作了个聊天的程序，我想把已经读过的换个颜色区分开，代码如下：
            if(ListView1-> Selected   ==   NULL)   return;
        if(ListView1-> Selected-> SubItems-> Strings[3]== "已读 "&&ListView1
                                                                                      -> Canvas-> Font-> Color!=clRed)
        {
                ListView1-> Canvas-> Font-> Color=clRed;           //   字体为蓝色
        }
为什么当string[3]=“已读”，颜色还是没改变呢？
在线等待解答
谢谢

[解决办法]
listView自绘好像不是这么简单,
ListView1-> Canvas-> Font-> Color=clRed;//只是将画布的的画笔字体颜色设置为了clRed，而没有进一步的动作。
ListView1-> Canvas-> TextRect(,,, "aaa ");//再输出文字颜色才是clRed

可以参考老妖网站上关于listbox自绘的代码。
http://www.ccrun.com/article.asp?i=597&d=8fdtzl
[解决办法]
不是厚到，是厚道，汗一下