treeview实现图标的动态显示?解决办法

treeview实现图标的动态显示?急!急!急!
treeview实现图标的动态显示,
如何实现?

[解决办法]
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if a=true then
if Node.Text = '1 ' then
begin
if Node.ImageIndex = 0 then
begin
Node.ImageIndex := 1;
Node.SelectedIndex := 1;
end
else
begin
Node.ImageIndex := 0;
Node.SelectedIndex := 0;
end;
// sleep(500);//为了闪烁不那么强烈...当然实际不能这么做，因为这是测试。
end;
a := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
a := true;
Treeview1.Refresh;//用这个来让Treeview刷新
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Treeview1.DoubleBuffered := true;
end;


同样，只是测试，目的能达到，但是...还是要先触发DrawItem。