procedure BmpToWmf (const ABmpFile,AWmfFile: string);
var  
  MetaFile : TMetaFile;
  MFCanvas : TMetaFileCanvas;  
  BMP : TBitmap;  
begin
  MetaFile := TMetaFile.Create;  
  BMP := TBitmap.create;  
  BMP.LoadFromFile(ABmpFile);
  MetaFile.Height := BMP.Height;  
  MetaFile.Width := BMP.Width;
  MFCanvas:=TMetafileCanvas.Create(MetaFile, 0);
 
  with MFCanvas do
  begin
    Draw(0, 0, BMP);
    Free;
  end;
 
  BMP.Free;
 
  with MetaFile do
  begin
    SaveToFile(AWmfFile);
    Free;
  end;
end;