怎么将JPG转换成BMP直接给IMAGE1

看我下面代码不对，我要实现的是将JPG直接转换成BMP然后给IMAGE1，直接可以将JPG给IMAGE1这样也显示，不过我要的是将JPG转BMP后在给IMAGE1，必须成BMP在给IMAGE1请大家帮帮忙。

  if UpperCase(aStr) = '.JPG' then begin
  Bit := TBitmap.Create;
  Jpg := TJPEGImage.Create;
  fuuBit := TCanvas.Create;
  Jpg.LoadFromFile(OpenDialog1.FileName);
  DC:=GetDC(0);
  fuuBit.Handle:=DC;
  Bit.Width := Jpg.Width;
  bit.Height := Jpg.Height;
  Bit.Canvas.CopyRect(Rect(0,0,Jpg.Width,Jpg.Height),fuuBit,Rect(0,0,Jpg.Width,Jpg.Height));
  Image1.Picture.Bitmap := Bit;
  Image1.Width := Bit.Width;
  Image1.Height := bit.Height;
  end;

uses jpeg;

var
  jpg:TJPEGImage;
begin
 jpg:=TJPEGImage.Create;
 jpg.LoadFromFile('E:\1.jpg');
 image1.Picture.Assign(jpg);
 jpg.Free;
end;

我不同意楼上的。楼主的意思是转换个图像的格式。简单的处理时不行的。会报图片错误的。我劝楼主不同格式的图片不一样的处理，不要想通过简单的方式的来转换图片的格式。那是很复杂的算法。

不对，我要的是将他转换成BMP格式后在放到IMAGE1里

就是报图片错误只有BMP的不报，可是我需要导入JPG 所以就需要转换成BMP然后给IMAGE1这样就没有问题了。

Image可以直接显示jpg格式
我不理解，为什么要转换？要作其它的用途吗？

是的，就是要转换成BMP才可以，不然就报错误，因我要在图片上画一些颜色，以前在BMP上用，而BMP都没有问题，现在需要IMAGE1载入JPG格式的，载入JPG格式的画一些东西就出错，而BMP的就不会 所以需要转换。

请帮忙