Неккоректное получение списка беспроводных интерфейсов

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  WLAN_INTERFACE_STATE = (wlan_interface_state_not_ready = 0,
                          wlan_interface_state_connected = 1,
                          wlan_interface_state_ad_hoc_network_formed = 2,
                          wlan_interface_state_disconnecting = 3,
                          wlan_interface_state_disconnected = 4,
                          wlan_interface_state_associating = 5,
                          wlan_interface_state_discovering = 6,
                          wlan_interface_state_authenticating = 7);
 
  PWLAN_INTERFACE_STATE = ^WLAN_INTERFACE_STATE;
 
  WLAN_INTERFACE_INFO = packed record
   InterfaceGuid:TGuid;
   strInterfaceDescription: array [0..255] of WCHAR;
   isState:WLAN_INTERFACE_STATE;
  end;
 
  PWLAN_INTERFACE_INFO = ^WLAN_INTERFACE_INFO;
 
  WLAN_INTERFACE_INFO_LIST = packed record
   dwNumberOfItems:DWORD;
   dwIndex:DWORD;
   InterfaceInfo: array of WLAN_INTERFACE_INFO;
  end;
 
  PWLAN_INTERFACE_INFO_LIST = ^WLAN_INTERFACE_INFO_LIST;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  function WlanOpenHandle(dwClientVersion:DWORD;pReserved:pointer;pdwNegotiatedVersion:PDWORD;phClientHandle:PHANDLE):DWORD; stdcall; external 'wlanapi.dll' name 'WlanOpenHandle';
  function WlanEnumInterfaces(hClientHandle:THandle;pReserved:pointer;ppInterfaceList:PWLAN_INTERFACE_INFO_LIST):DWORD; stdcall; external 'wlanapi.dll' name 'WlanEnumInterfaces';
  procedure WlanFreeMemory(pMemory:pointer); stdcall; external 'wlanapi.dll' name 'WlanFreeMemory';
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
Hndl:THandle;
NegotiatedVersion,res:DWORD;
InterfaceList:WLAN_INTERFACE_INFO_LIST;
begin
res := WLanOpenHandle(2,nil,@NegotiatedVersion,@Hndl);
res := WlanEnumInterfaces(Hndl,nil,@InterfaceList);
ShowMessage(IntToStr(InterfaceList.dwNumberOfItems));
WlanFreeMemory(@InterfaceList);
end;
 
end.