Incorrect MetafileCanvas size

The following code only draws the top-left corner of the square, after
pasting the clipboard into Word 97. The rest is "clipped".

However, Metafile Companion and Corel draw a correct 1000x1000 "canvas" with
a 980x980 square centred in it.

How can I produce a valid metafile object with a resolution (?) that Word 97
and Corel can both handle correctly?

Alain

<begin sample code>
procedure TForm1.Button1Click(Sender: TObject);
const
     gap = 10;
var
   MF : TMetafile;
   MFC : TMetafileCanvas;
   hDC : integer;
begin
MF := TMetaFile.Create;
MF.MMWidth := 1000;
MF.MMHeight := 1000;
hDC := CreateDC('display','','',nil);
MFC := TMetaFileCanvas.Create( MF, hDC);
MFC.Rectangle(gap,gap,MF.MMWidth-gap,MF.MMHeight-gap);
MFC.Free;
ClipBoard.Assign(MF);
deleteDC(hDC);
end;
<end sample code>