Unbekannte Bilddateierweiterung bei id3???

[glkgereon]

Hi

ich will alle mp3's aus einem Ordner holen und deren Gesamtlaufzeit (fürs erste) ausrechnen.
grundsätzlich funktioniert auch alles

ich nutze folgenden Code:

Delphi-Quellcode:

procedure FindAllFiles;
//Wie in Codelib
//nur RootFolder:=IncludeTrailingPathDelimiter(RootFolder);
//statt IncludeTrailingPathDelimiter(RootFolder);

function Sec2Time(Secs: Int64):String;
var S, M, H, D: Int64;
begin
  S:=Secs Mod 60; Secs:=Secs Div 60;
  M:=Secs Mod 60; Secs:=Secs Div 60;
  H:=Secs Mod 24; Secs:=Secs Div 24;
  D:=Secs;
  Result:=IntToStr(D)+' Tage '+FormatFloat('00',H)+':'+FormatFloat('00',M)+':'+FormatFloat('00',S);
end;

procedure TForm1.RefreshFolder(Folder: String);
var Temp: TStringList;
    i:Integer;
    Sum:Int64;
begin
  Temp:=TStringList.Create;
  Temp.Clear;
  FindAllFiles(Temp,Folder,'*.*',False);
  Label1.Caption:='Dateien: '+IntToStr(Temp.Count);
  Temp.Clear;
  FindAllFiles(Temp,Folder,'*.mp3',False);
  Label2.Caption:='MP3-Dateien: '+IntToStr(Temp.Count);
  Sum:=0;
  for i:=0 to Temp.Count-1 do
    begin
    JvID3v21.FileName:=Temp[i];
    JvID3v21.Open;
    Sum:=Sum+JvID3v21.FileInfo.LengthInSec;
    end;
  Label3.Caption:='Gesamtlaufzeit: '+Sec2Time(Sum);
  Temp.Free;
end;

jedoch bekomme ich sporadisch folgende Fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project2.exe ist eine Exception der Klasse EInvalidGraphic mit der Meldung 'Unbekannte Bilddateierweiterung (.jpg)' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

kann damit irgendwer was anfangen?