[KOOL]

Вообще непонятно, почему через TImage не загружается (он же даже png умеет). Но вот костыли:

Код:

uses ..., JPEG;
...
var SrcImage:TBitmap;
...
procedure TForm1.LoadImage(FileName:string);
var J:TJPEGImage;
begin
  if (ExtractFileExt(FileName)='.jpg') or (ExtractFileExt(FileName)='.jpeg') then
    begin
      J:=TJPEGImage.Create;
      J.LoadFromFile(FileName);
      SrcImage.Assign(J);
      J.Free;
    end
  else
    SrcImage.LoadFromFile(FileName);
  Image1.Picture.Bitmap:=SrcImage;
end;

только не забываем SrcImage создать.