procedure TS4Ble_Thread.Manager_Create;
var
  iState: Integer;
begin
  FBleManager := TBluetoothLEManager.CreateInstance;

  iState := S4Ble_CheckAdapter(FBleManager);
  if iState = 1 then
  begin // All OK
    FBleManager.EnableBluetooth;
    FBleManager.OnDiscoveryEnd    := EvOnDiscoveryLEEnd;
    FBleManager.OnDiscoverLeDevice := EvOnDiscoverLEDevice;
  end else
  begin // Not available
    if iState < 0 then
      FAdapterNotFound    := False
    else
      FAdapterNotFound    := True;
    FAdapterNotActivated  := True;
  end;

end;


function S4Ble_CheckAdapter(const AMgr : TBluetoothLEManager) : Integer;
var
  adp: TBluetoothLEAdapter;
  bState: Boolean;

begin
    Result := 0; // No hardware
                  // Not active

    if not Assigned(AMgr) then
    begin
      Exit;
    end;

    try

      bState := S4Ble_IsEnabled;

      if bState then
      begin
        adp := AMgr.CurrentAdapter;

        bState := adp.State <> TBluetoothAdapterState.Off;
      end;

      if not bState then
      begin
        Result := -1; // hardware yes,
                       // Not activated
                       // Could Activate

      end
      else
      begin
        Result := 1; // hardware yes
                     // And activated
      end;

    except

      Result := 0; // No hardware
                    // Not active

    end;


end;


function S4Ble_IsEnabled : Boolean;
var
  x:JBluetoothAdapter;
  s:String;
//  addr:string;

begin
  x :=TJBluetoothAdapter.JavaClass.getDefaultAdapter;
  s := jstringtostring(x.getName);
  if x.isEnabled then
    result := True //s+'(enabled) ' + jstringtostring(x.getAddress)
  else
    result := False; //s+'(disabled)';
end;