Конвертация изображений. Delphi

Question

Посмотрите пожалуйста процедуру конвертации из BMP в WMF 
 
procedure ConvertBMP2WMF (const BMPFileName, WMFFileName: TFileName); 
var 
 MetaFile : TMetafile; 
 Canvas : TMetafileCanvas; 
 Bitmap : TBitmap; 
begin 
 Metafile := TMetaFile.Create; 
 Bitmap := TBitmap.Create; 
 try 
 Bitmap.LoadFromFile(BMPFileName); 
 with MetaFile do 
 begin 
 Height := Bitmap.Height; 
 Width := Bitmap.Width; 
 Canvas.Draw( 0, 0, Bitmap); 
 end; 
 MetaFile.SaveToFile(WMFFileName); // Здесь выдаёт ошибку, скрин-шот которой ниже 
 finally 
 Bitmap.Free; 
 MetaFile.Free; 
 end; 
end; 
 
А вот ошибка: 
<img title="Конвертация изображений. Delphi" src="//otvet.imgsmail.ru/download/dad2d5926a1338da9345600444e8a834_i-61.jpg" >

Ruslan Pashaev · Accepted Answer

with MetaFile do 
Canvas.Draw( 0, 0, Bitmap); 
 
Есть у меня предположение, что TMetafile не обладает Canvas'ом. Но может я и неправ. 
А вот в чем я точно прав, так это в том, что: 
1. Такая конвертация нафиг никому не уперлась и 
2. Для подобных штучек надо использовать библиотеку Freeimage, а не заниматься эдакими пертурбациями.