Sehr großes Problem mit den verschiedenen Audiotags

[Nils_13]

Hier wird es knallen:

Delphi-Quellcode:

procedure TfrmMain.AddFiles(files : Array of String);
var
  len : integer;
  i   : integer;
begin
  len := Length(fFiles);
  SetLength(fFiles, len + Length(files));
  for i := 0 to high(files) do
  begin
    fFiles[len+i] := ReadID3Tag(files[i]);     <-- es müssen mehrere hintereinander ausgelesen werden können, das ist noch der alte Code, aber der neue macht das wahrscheinlich nicht mit
  end;
  if lbList.Count > 17 then
    xiScroll.Visible := True
  else
    xiScroll.Visible := False;
  UpdateListBox();
end;

Nachtrag:
fFiles : Array of TAudioFile;