How to delete my bluetooth earphones? They are not deleting from the menu - System-Bluetooth Devices-Devices

function Unpair-Bluetooth {
  param
 (
 [Parameter(Mandatory,ValueFromPipeline,ValueFromPipelineByPropertyName)]
 [Alias('Address')]
 [UInt64]
 $DeviceAddress
 )

begin {
 Add-Type -Namespace "Devices" -Name 'Bluetooth' -MemberDefinition '
[DllImport("BluetoothAPIs.dll", SetLastError = true, CallingConvention = CallingConvention.StdCall)]
[return: MarshalAs(UnmanagedType.U4)]
static extern UInt32 BluetoothRemoveDevice(IntPtr pAddress);
public static UInt32 Unpair(UInt64 BTAddress) {
 GCHandle pinnedAddr = GCHandle.Alloc(BTAddress, GCHandleType.Pinned);
 IntPtr pAddress = pinnedAddr.AddrOfPinnedObject();
 UInt32 result = BluetoothRemoveDevice(pAddress);
 pinnedAddr.Free();
 return result;}'
}

process {
 $result = [Devices.Bluetooth]::Unpair($DeviceAddress)
 [PSCustomObject]@{
 Success = $result -eq 0
 ReturnValue = $result }
 }

}

$Address = @{
 Name='Address'
Expression={$_.HardwareID |
ForEach-Object { [uInt64]('0x' + $_.Substring(12))}}
}

Get-PnpDevice -Class Bluetooth | Where-Object HardwareID -match 'DEV_' |  Select-Object FriendlyName, $Address | Where-Object Address | Out-GridView -Title 'Select Bluetooth Device to Unpair' -OutputMode Single | Unpair-Bluetooth