TListView - Listenindex überschreitet Maximum(8)

[schuetze09]

Hallo,

Was ich nicht verstehe, unter W2K kommt keine Exception, aber unter WinXP.

Hier mal mein Source:

Delphi-Quellcode:

procedure TForm_Main.MovieListCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if ((Item.Index mod 2)= 0)
  then begin
         MovieList.Canvas.Brush.color:=clSkyBlue;
         if Item.SubItems.Strings[8] = '-' then MovieList.Canvas.Brush.color:=clRed; // hier kommt die Exception!!!
       end;
end;

was ist daran falsch?

MfG
schuetze09