WMF-->BMP Convert suche guten Algorithmus

[ATS3788]

Delphi-Quellcode:

procedure ConvertWMF2BMP(const WMFFileName, BMPFileName: TFileName) ;
var
   MetaFile : TMetafile;
   Bitmap : TBitmap;
begin
   Metafile := TMetaFile.Create;
   Bitmap := TBitmap.Create;
   try
     MetaFile.LoadFromFile(WMFFileName) ;
     with Bitmap do
     begin
      Height := Metafile.Height;
      Width := Metafile.Width;
       Canvas.Draw(0, 0, MetaFile) ;
       SaveToFile(BMPFileName) ;
     end;
   finally
     Bitmap.Free;
     MetaFile.Free;
   end;
end;

Bummi hat mir bei meiner gestrigen frage einen echt guten
resize Algorithmus gepostet. Leider ist da kein Convert BMP to WMF dabei.
Oben die Function geht zur Not, aber vielleicht weiß ja jemand wieder
einen guten Link.