Erro invalid Index Treeview

Tenho o seguinte loop abaixo: Está dando erro quando TreeView.Items[(I+1)] = 10, ou seja diz que value está inaccessile value, ai aparece o erro Invalid Index.

For I := 0 To TreeView.Items.Count -1 do Begin

NomeNode := Copy(TreeView.Items[(I+1)].Text,1,8);

If Custo = NomeNode Then Begin
Result := I+1;
Break;
End;

End;

Alguém podeira me ajudar