ich glaub ich bin blind?!

[sharkx]

ich seh den fehler nit :/

Problem:
Ich öffne eine datei, lese die dateinamen aus dieser datei heraus und füge sie mit der dateigroesse in ein ListView ein. gleichzeitig möchte ich die Dateien, die auch wirklich da sind, in der listview nen haken haben. Aber genau dort scheitert es.

ListView1.Items.Item[i].Checked := True; funktioniert nicht

Ganzer source:

Delphi-Quellcode:

procedure TForm1.Open1Click(Sender: TObject);
var
  sfvfile: TStrings;
  filen: string;
  i: integer;
  item: TListitem;
begin
  if opendialog1.Execute then
  begin
    sfvfile := TStringList.Create;
    sfvfile.LoadFromFile(opendialog1.FileName);
    for i := 0 to sfvfile.Count - 1 do
    begin
      if (Pos(';', sfvfile.Strings[i]) = 1) or (Pos(' ', sfvfile.Strings[i]) = 1) then
        continue;
      // Kommentare überspringen
      filen := Copy(sfvfile.Strings[i], 1,Pos(' ', sfvfile.Strings[i]) - 1);
      if fileexists(filen) then
      begin
        item := Listview1.Items.Add;
        item.SubItems.Add(filen);
        item.SubItems.Add(IntToStr(GetFileSize(filen)));
        ListView1.Items.Item[i].Checked := True;
      end
      else
      begin
        if length(filen) = 0 then continue;
        item := Listview1.Items.Add;
        item.SubItems.Add(filen);
        item.SubItems.Add('not found');
      end;
    end;
    Memo1.Lines.Add('Sfv File Loading Complete');
    sfvfile.Free;
    Start1.Enabled := True;
  end;
end;

[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]