Сниффер

[Чайничек.]

Есть простенький сниффер, написан на основе WinSock. Почему-то не определяет МАС-адреса. Скажите, в чем ошибка?

type TMacAddress = array [1..6] of byte;

function getmac(Value: TMacAddress; Length: DWORD): String;
var
  i: integer;
begin
 if Length = 0 then Result := '00-00-00-00-00-00' else begin
  Result:= '';
  for i:= 0 to Length - 2 do
   Result:= Result + IntToHex(Value[i], 2) + '-';
  Result:= Result + IntToHex(Value[Length-1], 2)
 end
end;

Function GetMACAddres(Const IPAddres: AnsiString): String;
Var DestIP, SrcIP: ULONG;
     pMacAddr: TMacAddress;
     PhyAddrLen: ULONG;
Begin
  Try
    DestIP:= inet_addr(pAnsichar(IPAddres));
    PhyAddrLen:= 6;
    SendArp(DestIP, 0, @pMacAddr, PhyAddrLen);
    Result:= getmac(pMacAddr, PhyAddrLen)
  Except
    Result:= '-'
  End;
End;