binary 类型的存取

Question

var
  vStream: TMemoryStream;
  vJPEGImage: TJPEGImage;
begin
  vStream := TMemoryStream.Create;
  vJPEGImage := TJPEGImage.Create;
  try
    vJPEGImage.Assign(Image1.Picture);
    vJPEGImage.SaveToStream(vStream);
    vStream.Position := 0;
    Table1.Edit;
    TBlobField(Table1.FieldByName('fImage')).LoadFromStream(vStream);
    Table1.Post;
  finally
    vStream.Free;
    vJPEGImage.Free;
  end;
end;

Answer 1

JPEG图片的问题解决了，可是我要在IMAGE中同时、显示BMP格式的图片又怎么办啊？