Bluetooth Device Scan Poblem

The device cannot find it. I'm not surprised the Firemonkey isn't working. Everywhere explodes. Annoying :D :D :D 

unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
System.Bluetooth, FMX.Controls.Presentation, FMX.StdCtrls,
System.Bluetooth.Components;

type
TForm1 = class(TForm)
Bluetooth1: TBluetooth;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Bluetooth1DiscoveryEnd(const Sender: TObject;
const ADeviceList: TBluetoothDeviceList);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Bluetooth1DiscoveryEnd(const Sender: TObject;
const ADeviceList: TBluetoothDeviceList);
var
I: Integer;
begin
for I:= 0 to ADeviceList.Count-1 do
ShowMessage(ADeviceList[I].DeviceName);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Bluetooth1.DiscoverDevices(50000);
end;

end.