WSAAddressToString: несоответствие параметров ? Ругается компилятор: E2033

function GetAdaInfo2(out AInfoStr: AnsiString; const AOnlyMac: Boolean):Boolean;
const
  cntAdaCount=2;
  cntAdaTypesInt: array[0..cntAdaCount] of Cardinal = ($6, $47, $90);
  cntAdaTypesDef: array[0..cntAdaCount] of AnsiString =
                 ('Ethernet Network Adapter',
                  'Wireless Network Adapter',
                  'FireWire Network Adapter');
var
  i: Integer;
  bf: Cardinal;
  LqFind: Boolean;
  LsMac: AnsiString;
  LpAdapterAddresses: PIP_ADAPTER_ADDRESSES;
 
    text : array[1..46] of WideChar;
    bufferSize :DWORD;
  protocolInfo: WSAPROTOCOL_INFO;
begin
 
  bufferSize := sizeof(text);
 
  Result := True;
  AInfoStr := '';
  try
    bf := 0;
    if GetAdaptersAddresses(0, 0, nil, nil, @bf) <> ERROR_BUFFER_OVERFLOW then Abort;
    try
      GetMem(LpAdapterAddresses, bf);
      if GetAdaptersAddresses(0, 0, nil, LpAdapterAddresses, @bf) <> ERROR_SUCCESS then Abort;
 
      while LpAdapterAddresses <> nil do
      begin
        try
          // Определяем тип адаптера
          LqFind := False;
          for i := 0 to cntAdaCount do
            if LpAdapterAddresses^.IfType = cntAdaTypesInt[i] then
            begin
              LqFind := True;
              Break;
            end;
 
          if not LqFind then Continue;
 
          //собираем информацию об устройстве
          if not AOnlyMac then
            AInfoStr := Format('%s%s (%s)'#13#10'%s'#13#10,
                             [AInfoStr, LpAdapterAddresses^.FriendlyName,
                              LpAdapterAddresses^.Description, cntAdaTypesDef[i]]);
 
            WSAAddressToStringW(LpAdapterAddresses^.FirstUnicastAddress.Address.lpSockaddr,
                               LpAdapterAddresses^.FirstUnicastAddress.Address.iSockaddrLength,
                               @protocolInfo, @text,  bufferSize);
 
          LsMac := '';
          if LpAdapterAddresses^.PhysicalAddressLength = 0 then Continue;
 
          for i := 0 to LpAdapterAddresses^.PhysicalAddressLength - 1 do
            LsMac := LsMac + IntToHex(LpAdapterAddresses^.PhysicalAddress[i], 2) + '-';
          SetLength(LsMac, Length(LsMac) - 1);
          AInfoStr := Format('%s%s'#13#10#13#10, [AInfoStr, LsMac]);
        finally
          LpAdapterAddresses := LpAdapterAddresses^.Next;
        end;
      end;
    finally
      FreeMem(LpAdapterAddresses, bf);
    end;
  except
    Result := False;
    AInfoStr := '';
  end;
end;