[[David]]

De esa manera , hay un problema .

Mi código es más o menos así :

Código Delphi [-]
procedure TForm.Oncreate;
var
nodo : array of TTreenode;
SetLength(nodo,X);

//Valor raiz 

nodo[0] := TreeView1.Items.add(nil,'Informes');
nodo[0].ImageIndex := 2;// valor en el TImageList
nodo[0].SelectedIndex := 2;

//Valores que tendrán el dibujo de carpetas

while not TablaCarpetas.eof do
begin
  nodo[ivalordelabasededatos] := TTreeView1.items.AddChild(padre,'Texto');
  nodo[ivalordelabasededatos].ImageIndex := 0;
  nodo[ivalordelabasededatos].SelectedIndex := 0;
end;

// valores que tendrá el dibujo de informe

while not TablaInformes.eof do
begin
 nodo[ivalordelabasededatos] := TTreeView1.items.AddChild(padre,'Texto');
  nodo[ivalordelabasededatos].ImageIndex := 1;
  nodo[ivalordelabasededatos].SelectedIndex := 1;
end;

Bien , si hago esto , el primer valor , el raiz , NO toma la imagen , y luego los demás si los lleva bien , PERO , cuando selecciono un nodo de los que contiene la propiedad ImageIndex = 1 , se me cambia la imagen al que tiene el ImageIndex := 0.

Este es el problema. Que si me los rellena , pero al seleccionar pues los de dibujo informe ,cambia el icono.