图片类型转换问题(100分)

请问怎么用delphi的程序将bmp、jpg等格式的图片转换为wmf格式的图片

直接用canvas.assign可以吗？

procedure TForm1.Button1Click(Sender: TObject);
var
MetaFile: TMetaFile;
MFCanvas: TMetaFileCanvas;
begin
MetaFile := TMetaFile.Create;
try
MetaFile.Height := Image1.Picture.Bitmap.Height;
MetaFile.Width := Image1.Picture.Bitmap.Width;
MFCanvas := TMetafileCanvas.Create(MetaFile, 0);
try
MFCanvas.Draw(0, 0, Image1.Picture.Bitmap);
finally
MFCanvas.Free;
end;
MetaFile.SaveToFile('d:/t.wmf');
finally
MetaFile.Free;
end;
end;

问题解决，多谢！