unit loadjpegorbmp; interface uses jpeg,graphics,sysutils,extctrls; function loadjpegbmp(fname : string) : tbitmap; implementation function loadjpegbmp(fname : string) : tbitmap; var JPEG : TJpegImage; res : Tbitmap; error : integer; artist,album : string; begin error := 1; res:=Tbitmap.create; JPEG:=TJpegImage.Create; if fileexists(fname+'\title.jpg') then begin try jpeg.loadfromfile(fname+'\title.jpg'); res.assign(jpeg); //res.assign(res.graphic); error:=0; except error:=2; end; end; if error>0 then if fileexists(fname+'\title.jpeg') then begin try jpeg.loadfromfile(fname+'\title.jpeg'); res.assign(jpeg); //bmp.assign(res.graphic); error:=0; except error:=2; end; end; if error>0 then if fileexists(fname+'\title.bmp') then begin try res.Loadfromfile(fname+'\title.bmp'); //res.Assign(bmp); //bmp.assign(res.graphic); error:=0; except error:=2; end; end; result:=tbitmap.create; result.assign(res); res.free; jpeg.free; end; end.