IMAGE的转换问题

Question

我用IMAGE读取了一个JPG文件，但不知道如何把这个读取的JPG转成BMP的格式，因为我要对这个IMAGE中的位图进行COPY所以JPG格式不行，非要进行转换才行，但我又不能通过文件的形式转换，那样太费资源，不适合用于大量数据的转换。 
谁知道如何从内存中进行转换呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  if Image1.Picture.Graphic is TJPEGImage then
  begin
    bmp := TBitmap.Create;
    bmp.Assign(Image1.Picture.Graphic);
    Image1.Picture.Assign(bmp);
    // 测试Image1是否为bmp格式 */
    if Image1.Picture.Graphic is TBitmap then
      ShowMessage('Bitmap');
    bmp.Free;
  end;
end;