怎样把BMP或JPG格式的文件转化为WMF格式的文件？

Question

BMP格式转换为WMF格式
procedure BmpToWmf (BmpFile,WmfFile:string);  
var  
  MetaFile : TMetaFile;  
  MFCanvas : TMetaFileCanvas;  
  BMP : TBitmap;  
begin  
  {Create temps}  
  MetaFile := TMetaFile.Create;  
  BMP := TBitmap.create;  
  BMP.LoadFromFile(BmpFile);  
  {Igualemos tama駉s}  
  {Equalizing sizes}  
  MetaFile.Height := BMP.Height;  
  MetaFile.Width := BMP.Width;  
  {Create a canvas for the Metafile}  
  MFCanvas:=TMetafileCanvas.Create(MetaFile, 0);  
  with MFCanvas do  
  begin  
  {Draw the BMP into canvas}  
  Draw(0, 0, BMP);  
  {Free the Canvas}  
  Free;  
  end;  
  {Free the BMP}  
  BMP.Free;  
  with MetaFile do  
  begin  
  {Save the Metafile}  
  SaveToFile(WmfFile);  
   {Free it...}  
  Free;  
  end;  
end;