大家帮忙看看的，怎么打开的WMF文件严重失真啊？

Question

var
  TmpMeta:Tmetafile;
  TmpBitmap:Tbitmap;
  mc:TmetafileCanvas;
  pTemp:Tpicture;
begin
     pTemp:=Tpicture.Create;
     TmpMeta:=Tmetafile.Create;
     TmpBitmap:=TBitmap.Create;
     try
     begin
             TmpMeta.LoadFromFile(extractfilePATH(aPPLICATION.ExeName)+'1a.WMF');
             pTemp.LoadFromFile(extractfilePATH(aPPLICATION.ExeName)+'1a.WMF');
             CAPTION:=inttostr(pTemp.Width)+'-'+inttostr(pTemp.Height);
             mc:=TmetafileCanvas.Create(TmpMeta,0);
                try
                Image1.Width:=TmpMeta.Width;
                Image1.Height:=TmpMeta.Height;
                PaintBox1.Canvas.Draw(0,0,pTemp.Graphic);
                Image1.Canvas.StretchDraw(rect(0,0,Image1.Width,Image1.Height),pTemp.Graphic);
                finally
                mc.Free;
                end;
             end;
      finally
      TmpBitmap.Free;
      TmpMeta.Free;
      pTemp.Free;
      end;
end;

Answer 1

Image1.Picture.LoadFromFile();
不可以嗎?? 要那麼麻煩做什麼???