d5+listview的CustomDrawItem中系统资源为什么不能释放?

Question

加上如下代码：
item.ListView.Canvas.Brush.Color:=$00F7F8F9;
系统资源不能释放。

Answer 1

在98中给指定的行字体加上颜色，在刷新后（比如：不断拖动上下滚动栏），系统的资源就不能释放。
代码如下：
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if odd(item.index)then
    (Sender as Tlistview).Canvas. font.Color:=clblue
  else
    (Sender as Tlistview).Canvas.font.Color:=clblack;
end;