Jpeg Zu Bitmap Fehler

[Larsi]

hi,
in meinem code möchte ich eine jpeg datei in eine bmp datei umwandeln. dazu habe ich folgenden code verwendet:

Delphi-Quellcode:

uses jpeg;

procedure JpegToBmp(const Filename: String);
var
 jpeg: TJPEGImage;
 bmp: TBitmap;
begin
 jpeg:=TJPEGImage.Create;
 try
   jpeg.LoadFromFile(Filename);
   bmp:=TBitmap.Create;
   try
     bmp.Assign(jpeg);
     bmp.SaveToFile(ChangeFileExt(Filename, '.bmp'));
   finally
     bmp.free;
   end;
 finally
   jpeg.free;
 end;
end;

Delphi-Quellcode:

if radiobutton1.checked = true then begin
JpegToBmp(ExtractFilePath(Application.ExeName) + '\Image' + inttostr(i) + '.jpg');
end;

Aber immer wenn der Code ausgeführt werden soll, kommt die Fehlermeldung "Jpeg Fehler oder Error #53"!!!

Hoffe ihr könnt mir bei diesem problem helfen!


MFG Lars Wiltfang