Delphi限制了PairedManagers的网络绑定

Question

Delphi 10.2.3

procedure TMainForm.FormDestroy(Sender: TObject);
var i: Integer;

begin
  try

    CodeSite.Send('In FormDestroy, MyTetheringAppProfile.Disconnect() has ' + IntToStr(MyTetheringManager.RemoteProfiles.Count) + ' profiles.');

    for i:= MyTetheringManager.PairedManagers.Count-1 downto 0 do
      MyTetheringManager.UnPairManager(MyTetheringManager.PairedManagers[i]);

UnPairManager（）引发范围异常错误。

我不知道怎么可能，因为只有一位经理。 跟踪代码时，i = 0和MyTetheringManager.PairedManagers.Count = 1。

这怎么可能超出范围？

Answer 1

将两个应用程序都连接到同一Codesite之后，可以看到在客户端的FormDestroy代码期间，网络共享的“服务器”端断开了连接。