[*Caro*]

Hola, yo recorro con un solo for, y segun alguna condición hago lo que necesito.

Código Delphi [-]
 for Ind:=0 to TreeView1.Items.Count-1 do
 begin
  case TreeView1.Items[Ind].Level of
  0://Nivel 0 (Dias)
  1://Nivel 1 (Turno)
  2://Nivel 2 (Actividades)
  end;
 end;

Saluditos, espero te sirva