关于 listbox的自绘问题。有经验的来看看。

procedure TCheckThread.SetLineColor(ALBox: TListBox; AColor: TColor;
  AIndex: integer);
var
  Rect: TRect;
begin
  Rect := ALBox.ItemRect(AIndex);
  with ALBox do
  begin
    Canvas.FillRect (Rect);
    Canvas.Font.Color := AColor;
    Canvas.TextOut(Rect.Left,Rect.Top, ALBox.Items[AIndex]);
  end;
end;我用上述函数来设置 listbox 指定条目的颜色，但是当 listbox 滚动（翻页），那些自绘的颜色不能保存，又变成默认颜色了。谁帮看看，怎么解决？！