Bitmap in TMetafile ausgeben Windows 7

[freeway]

ich hab mal deinen Code kopiert und ihn so laufen lassen, unter WIN7, das dabei erzeugte WMF entspricht exakt dem BMP
vielleicht hilft dir diese kleine Änderung

Delphi-Quellcode:

var MyMetafile : TMetafile;
Bitmap : TBitmap;
myc : TMetafileCanvas ;

begin
MyMetafile := TMetafile.Create;
Bitmap := TBitmap.create;
Bitmap.LoadFromFile('test.bmp');

myc := TMetafileCanvas.Create(MyMetafile, 0);
myc.Height := Bitmap.Height;
myc.Width  := Bitmap.Width;
myc.Draw(0, 0, Bitmap);
myc.Free;

MyMetafile.SaveToFile('c:\temp\mist.wmf');
self.Canvas.StretchDraw(rect(0,0,100,100),MyMetafile);
Bitmap.free;
MyMetafile.free;