TListView - Listenindex überschreitet Maximum(8)

[toms]

Hallo
Mach mal eine Ueberpruefung, ob Strings[8] ueberhaupt existiert

Delphi-Quellcode:

  if ((Item.Index mod 2) = 0) then 
  begin
    MovieList.Canvas.Brush.color := clSkyBlue;
    if Item.SubItems.Strings[8] = '-' then 
      if Item.SubItems.Count >= 7 then 
       MovieList.Canvas.Brush.color := clRed; // hier kommt die Exception!!!
  end;