Bitmap in TMetafile ausgeben Windows 7

[freeway]

da hab ich vertan mit myc und mymetafile, sorry

so sollte es sein

Delphi-Quellcode:

MyMetafile.Height := Bitmap.Height;
MyMetafile.Width := Bitmap.Width;

myc := TMetafileCanvas.Create(MyMetafile, 0);

zumindest funzt es bei mir so ohne Probleme