Bitmap in TMetafile ausgeben Windows 7

[Bummi]

folgender Code liefert bei mir unter WIN7 D2010 das erwartete Ergebnis

Delphi-Quellcode:

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

begin
  MyMetafile := TMetafile.Create;
  Bitmap := TBitmap.Create;
  try
    MyMetafile.Width := 200;
    MyMetafile.Height := 200;
    Bitmap.Width := 100;
    Bitmap.Height := 100;
    Bitmap.Canvas.pen.Color := clRed;
    Bitmap.Canvas.pen.Width := 2;
    Bitmap.Canvas.Ellipse(0, 0, 99, 99);
    Bitmap.PixelFormat := pf32bit;
    myc := TMetafileCanvas.Create(MyMetafile, 0);
    try
      myc.pen.Color := clBlue;
      myc.Ellipse(0, 0, 199, 199);
      myc.Draw(0, 0, Bitmap);
    finally
      myc.Free;
    end;
    MyMetafile.SaveToFile('c:\temp\mist.wmf');
    self.Canvas.Draw(0, 0, MyMetafile);
  finally
    Bitmap.Free;
    MyMetafile.Free;

  end;

end;