[TTreeView] Problem Bilderindex & TImageList

[xZise]

Also Code muss ich nicht Zeigen, weil es nicht am Code liegen kann.
Einzig und alein dass:

Delphi-Quellcode:

  for i := 0 to tvItems.Items.Count - 1 do begin
    if tvItems.Items[i].StateIndex > -1 then
      tvItems.Items[i].ImageIndex := tvItems.Items[i].StateIndex;
  end;

Aber ich vermute es lag an der TImageList, weil ich es inzwischen wiederzurückgeändert habe. (State = Image)