在线等待 为什么得不到结果 PacketGetAdapterNames ???

procedure TForm1.Button1Click(Sender: TObject);
var NameList : Array [0..(4096*2)-1] of char;
    NameLength,
    i        :Longword;
    aa:char;
    ss:String;
begin
   NameLength := 4096;
   PacketGetAdapterNames(NameList,@NameLength);
   begin
     if (Pwidechar(@NameList)[i]=#0)and (PwideChar(@namelist)[i+1]<>#0) then
       PwideChar(@NameList)[i]:=WideChar('|');
   end;
   showmessage(WideCharToString(PWideChar(@NameList)));
end;