wmf and FillRgn

[JUN]

FillRgn seems can't work in WMF, code like follow:

procedure TForm1.Button1Click(Sender: TObject);
var
MetaFile: TMetaFile;
MFCanvas: TMetaFileCanvas;
MyRgn: HRGN;
p:ARRAY OF TPoint;
begin
setlength(p,4);
p[0]:=Point(10,10);
p[1]:=Point(100,10);
p[2]:=Point(100,100);
p[3]:=Point(10,100);

MetaFile := TMetaFile.Create;
try
MetaFile.Height := Self.Height;
MetaFile.Width := Self.Width;
MFCanvas := TMetafileCanvas.Create(MetaFile, 0);
try
MFCanvas.Brush.Color:=clRed;
MFCanvas.Brush.Style:=bsSolid;
MFCanvas.Pen.Color :=clGreen;
MFCanvas.Pen.Width := 3;

MFCanvas.Rectangle(102,100,200,200); // Normal -
it can display in office picture and Corel Paint Shop Pro

MyRgn := CreatePolygonRgn(PPoint(p)^, 4, WINDING); //
ERROR - it can display in office picture and can not display in Corel
Paint Shop Pro
FillRgn(MFCanvas.Handle, MyRgn, MFCanvas.Brush.Handle);
DeleteObject(MyRgn);

finally
MFCanvas.Free;
END;
MetaFile.SaveToFile('a.wmf');
ShowMessage('aaaaaa');
finally
MetaFile.Free;
END;

end;

thanks...