Delphi привязывает парных менеджеров вне диапазона

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.