Problem mit Opendialog und for-Schleife

[Klaus01]

Delphi-Quellcode:

procedure TMainForm.fill_playlist; 
var stream: TFilestream; 
  l: TListItem; 
begin 
  if opendialog.Execute then 
    for i := 0 to opendialog.Files.Count do 
      with ListView1 do 
        begin 
          l := ListView1.Items.Add; 
          Items.BeginUpdate; 
          Application.ProcessMessages; 
          stream := TFileStream.Create(opendialog.files.strings[i], fmOpenRead or fmShareDenyWrite); // <- strings[i]
          if not Id3v2Tag.exists then 
            stream.Seek(0, sobeginning) 
          else 
            stream.Seek(Id3v2Tag.size, soFromBeginning); 
          MpegInfo.LoadFromStream(Stream); 
          Id3v1Tag.ReadFromStream(stream); 
          l.Caption := Id3v1Tag.Artist; 
          l.Subitems.Add(Id3v1Tag.Title); 
          l.Subitems.Add(Id3v1Tag.Album); 
          l.Subitems.Add(Id3v1Tag.year); 
          l.Subitems.AddStrings(opendialog.Files); 
          Items.EndUpdate; 
        end; 
  stream.free; 
end;

dann sollte es gehen.

Grüße
Klaus

[edit] zwei xxx ein Gedanke [/edit]