Strange AV

[WojTec]

Delphi-Quellcode:

procedure TForm1.ListView1Resize(Sender: TObject);
var
  I: Integer;
  FileName: string;
begin
  for I := 0 to ListView1.Items.Count do
  begin
    FileName := ListView1.Items[I].SubItems[4];
    FileName := MinimizeName(FileName, ListView1.Canvas, ListView1.Column[5].Width);
    ListView1.Items[I].SubItems[4] := FileName
  end;
end;

There is 7 columns. Why this raises AV