Treeview Einträge färben ?

[Blackheart]

Hab das soweit jetzt hinbekommen, hab jetz aber noch irgendwo noch einen Denkfehler drin er sollte Mir alle textdateien enfärben, aber
das klappt noch nicht ganz wenn Ich die Datei direkt angebe
if Node.text='Datei.txt' dann klappts.

Delphi-Quellcode:

procedure TForm1.TreeCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
i:Integer;
begin
 For i := 0 to Tree.Items.Count-1 do
  begin
  ext:= extractfileext(tree.Items[i].Text);
      with Sender.Canvas do
       if Node.text='.txt' then
         begin
             if cdsSelected in State then
                Font.Color := clWhite
             else
                Font.Color := clBlue;
             Font.Size:=8;
        end else begin
        if Node.Count=0 then
             if cdsSelected in State then
                Font.Color := clWhite
             else
                Font.Color := clRed;
             Font.Size:=7;
          Label1.Caption:=ext;
        end;
  end;
end;