[Vayrus]

Привествую всех, возникла проблема с вышеуказанным событием, постоянно вылетают ошибки List Index Out Of Bounds (3), вроде делал как по "учебнику" и всяко разно менял код, но все равно одно и тоже. Ткине носом на ошибку в коде, всего столбцов 5 (те заголовок и 4 подпункта):

Код:

procedure TMainForm.FoundFilesCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  //if Sender.Items.Count = 0 then EXIT;
  if SubItem = 0 then EXIT;
  //try
  if (SubItem = 3) and (POS('Hidden', Item.SubItems.Strings[SubItem - 1]) > 0) or
      (POS('System', Item.SubItems.Strings[SubItem - 1]) > 0) then
    Sender.Canvas.Font.Color := clRed else
    Sender.Canvas.Font.Color := clBlack;
  //except
  //end;
    //Sender.Canvas.Brush.Color := clLime
end;