数据敏感图片控件的BUG(100分)

我在做一个数据敏感的图片控件，该控件可支持（图片的导入，导出，复制，粘贴等功能）
因为bmp文件相对JPG文件是大得多的，我想不管图片来源是什么格式都将以JPG的
形式保存到数据库中再以JPG的形式输出，BMP->JPG是没问题，但当图片来源是METAFILE
格式(如从Excel复制下来的一段图文)的却转不成JPG格式,请大家赐教：
如何用Delphi5.0将MetaFIle格式的图片转成JPG格式
(如果有更好的数据库图形处理方法请不啬教诲，delphi+SQL Server7.0)

function bmp2emf(const SourceFileName: TFileName): Boolean;
// Converts a Bitmap to a Enhanced Metafile (*.emf)
var
Metafile: TMetafile;
MetaCanvas: TMetafileCanvas;
Bitmap: TBitmap;
begin
Metafile := TMetaFile.Create;
try
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(SourceFileName);
Metafile.Height := Bitmap.Height;
Metafile.Width := Bitmap.Width;
MetaCanvas := TMetafileCanvas.Create(Metafile, 0);
try
MetaCanvas.Draw(0, 0, Bitmap);
finally
MetaCanvas.Free;
end;

finally
Bitmap.Free;
end;

Metafile.SaveToFile(ChangeFileExt(SourceFileName, '.emf'));
finally
Metafile.Free;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
bmp2emf('C:/12.bmp');
end;
bmp2emf,你自己改一下