GDI+的Metafile问题 ( 积分: 200 )

不能正确记录到文件中，代码如下：
procedure TAAA.Button2Click(Sender: TObject);
var
ww : TGPMetafile;
gs : TGPGraphics;
pen: TGPPen;
begin
ww:=TGPMetafile.Create('xxxxx.emf', Getdc(0));
gs := TGPGraphics(TGPIMage(ww));
pen:= TGPPen.Create(MakeColor(0,0,0));
gs.DrawLine(Pen, 10,13,100,13);
gs.DrawLine(Pen, 101,13,130,13);
gs.DrawLine(Pen, 131,13,200,13);
gs.DrawRectangle(pen,100,100,200,200);
pen.Free;
gs.Free;
//ww.Free 加上这个既出现错误，不加，记录的文件不正确
end;

不能正确记录到文件中，代码如下：
procedure TAAA.Button2Click(Sender: TObject);
var
ww : TGPMetafile;
gs : TGPGraphics;
pen: TGPPen;
begin
ww:=TGPMetafile.Create('xxxxx.emf', Getdc(0));
gs := TGPGraphics(TGPIMage(ww));
pen:= TGPPen.Create(MakeColor(0,0,0));
gs.DrawLine(Pen, 10,13,100,13);
gs.DrawLine(Pen, 101,13,130,13);
gs.DrawLine(Pen, 131,13,200,13);
gs.DrawRectangle(pen,100,100,200,200);
pen.Free;
gs.Free;
//ww.Free 加上这个既出现错误，不加，记录的文件不正确
end;

靠, 晕倒.
TGPGraphics(TGPIMage(ww));
这是vc的写法