Delphi 添加地面覆盖层时出现错误80020101

我使用的是带有DelphiXE2的GMLIB1.1，操作系统是XP sp3，internet explorer是版本8。 我的问题是，我无法在运行时以编程方式添加地面覆盖，而如果我在设计时这样做，一切都没问题：在程序启动时，覆盖被加载并正确显示。 具体来说，如果我在运行时添加任何图像，我会得到一个错误80020101。 做了一些调查后，我偷看了一下源代码，不得不修改TGMGroundOverlay。添加类似这样的函数，因为在指定属性（纬度、经度等）时更新覆盖时，似乎会出现错误：

function TGMGroundOverlay.Add(Url: string; SWLat, SWLng, NELat,
  NELng: Real): TGroundOverlay;
begin
  Result := TGroundOverlay(inherited Add);
  result.FVisible:=false;//<---added this line
  Result.Url := Url;
  Result.Bounds.SW.Lat := SWLat;
  Result.Bounds.SW.Lng := SWLng;
  Result.Bounds.NE.Lat := NELat;
  Result.Bounds.NE.Lng := NELng;
end;

函数TGMGroundOverlay.Add（Url:string；SWLat、SWLng、NELat、， NELng:Real:TGroundOverlay； 开始 结果：=TGroundOverlay（继承的添加）；

---

结果.FVisible:=假//这是GMLib的一个bug。我已经修改并修复了它，现在您可以从CSV存储库下载新版本。谢谢谢谢Xavier，继续做好这件事！