使用Delphi做蓝牙BLE开发的一个问题

概念

Delphi 的 BLE 开发，拖一个 TBlueToothLe 到界面上，使用这个控件，就可以进行 BLE 的开发，比如去连接一个蓝牙手环。

Delphi 自带的 Demo 里面，有一个 BLEScanner 程序，可以作为开发的起点。

问题

上述程序，如果在 Windows 底下执行，扫描出设备后，如果鼠标点击某个设备，可能会界面冻结，程序没有响应。看任务管理区，确实程序没有了响应，死机了。

原因分析

鼠标点击，是执行对选中设备的服务的扫描。然后，当发现该设备的服务后，触发了 TBluetoothLE 的 OnServicesDiscovered 事件。在该事件中，循环读取该设备的多个服务，然后对某一个服务，循环读取它的 Character 的名字。死机正是循环读取 Character 那里。

为什么会死机，我不知道。但发现一个解决办法，代码如下：

procedure TForm6.BluetoothLE1ServicesDiscovered(const Sender: TObject; const AServiceList: TBluetoothGattServiceList);
var
  ServiceIndex: Integer;
  Service: TBluetoothGattService;
  CharacteristicIndex: Integer;
  Characteristic: TBluetoothGattCharacteristic;
begin
  //以下代码如果不包到 TTask.Run 里面（原本的代码没有），在 WINDOWS 底下，执行到 for 
  //CharacteristicIndex := 0 to Service.Characteristics.Count 会界面冻结，而且单步跟踪也停止 
  //了，没有往下执行。
  TTask.Run(  
  procedure
  var
    ServiceIndex: Integer;
    CharacteristicIndex: Intege