Bluetooth и телефон

[Dreanks]

Здавствуйте.
Пытаюсь соединиться с телефоном по блутузу.

begin
   If WSAStartUp($0202, Data) <> 0 then
  raise Exception.Create('Winsock Initialization Failed.');
  ASocket := socket(AF_BTH,SOCK_STREAM,BTHPROTO_RFCOMM);
  If ASocket = INVALID_SOCKET then
    MessageDlg('Сокет не создан',mterror, [mbYes], 0);
  AddrSize := SizeOf(SOCKADDR_BTH);
  FillChar(Addr, AddrSize, 0);
  with Addr do begin
    addressFamily := AF_BTH;
    btAddr := DevInfo^.Address.ullLong;
    serviceClassId := SerialPortServiceClass_UUID;
    port := DWORD(BT_PORT_ANY);
  end;
  If connect(ASocket, @Addr, AddrSize) <> 0 then
    MessageDlg('Коннекта нет',mterror, [mbYes], 0);
end;

На строке: If connect(... выдает ошибку 'Access violation at address 0045CC2E in module 'Project2.exe'. Read of address 00000008'

DevInfo получено заранее.

procedure TForm2.Button4Click(Sender: TObject);
begin
BFRP.dwSize := SizeOf(BFRP);
hFind := BluetoothFindFirstRadio(@BFRP, hRadio);
if hFind = 0 then edit1.text:='Нет БТ';
if (hFind <> 0) then begin
  getradioinfo(hradio);
  BluetoothFindRadioClose(hFind);
end;
end;

procedure tform2.GetDevices(_hRadio: THandle);
begin
with DeviceSearchParams do begin
dwSize := SizeOf(BLUETOOTH_DEVICE_SEARCH_PARAMS);
fReturnRemembered := true; 
hRadio := _hRadio
end;
FillChar(DeviceInfo, SizeOf(PBLUETOOTH_DEVICE_INFO), 0);
DeviceInfo.dwSize := SizeOf(PBLUETOOTH_DEVICE_INFO); 
DeviceFind := BluetoothFindFirstDevice(DeviceSearchParams, DeviceInfo);
if (DeviceFind = 0) then edit1.Text:='Ничего не подключено';
if (DeviceFind <> 0) then begin
  edit1.Text := string(DeviceInfo.szName) + ' [' +
            BTAdrToStr(DeviceInfo.Address) + ']';
  BluetoothFindDeviceClose(DeviceFind);
end;
end;  

procedure tform2.GetRadioInfo(hRadio: THandle);
begin
FillChar(Radionfo, 0, SizeOf(Radionfo));
Radionfo.dwSize := SizeOf(Radionfo);
if (BluetoothGetRadioInfo(hRadio, Radionfo) = ERROR_SUCCESS) then begin
   GetDevices(hRadio);
end;
end;

Помогите плз.