[angvelem]

Всё очень просто, замени при вызове GetIcon

Код:

    node.ImageIndex := TreeView1.Images.AddIcon(GetIcon(s));
    node.SelectedIndex := TreeView1.Images.AddIcon(GetIcon(s));

на

Код:

    node.ImageIndex := TreeView1.Images.AddIcon(GetIcon(s + '\'));
    node.SelectedIndex := TreeView1.Images.AddIcon(GetIcon(s + '\'));