Вывести на label локальный IP и Основной шлюз компьютера и изменить их

uses Winsock;...; //подключаем модуль
//...
implementation
 
 type
PMIB_IPFORWARDROW = ^MIB_IPFORWARDROW;
 
  MIB_IPFORWARDROW = record
    dwForwardDest: DWORD;
    dwForwardMask: DWORD;
    dwForwardPolicy: DWORD;
    dwForwardNextHop: DWORD;
    dwForwardIfIndex: DWORD;
    dwForwardType: DWORD;
    dwForwardProto: DWORD;
    dwForwardAge: DWORD;
    dwForwardNextHopAS: DWORD;
    dwForwardMetric1: DWORD;
    dwForwardMetric2: DWORD;
    dwForwardMetric3: DWORD;
    dwForwardMetric4: DWORD;
    dwForwardMetric5: DWORD;
  end;
 
  PMIB_IPFORWARDTABLE = ^MIB_IPFORWARDTABLE;
 
  MIB_IPFORWARDTABLE = record
    dwNumEntries: DWORD;
    table: array[0..255] of MIB_IPFORWARDROW;
  end;
  var
   pIpForwardTable: PMIB_IPFORWARDTABLE;
  dwSize: ULONG;
  bOrder: boolean;
  dwStatus: DWORD;
  addr: TInAddr;
 
 
{$R *.dfm}
 
Function GetIpForwardTable(pIpForwardTable: PMIB_IPFORWARDTABLE;
 var pdwSize: ULONG; bOrder: BOOL): DWORD; stdcall;
 external 'IPHLPAPI.DLL';
 
 
           //ПОЛУЧАЕМ IP//
Function GetIPAddress():AnsiString;
type
  pu_long = ^u_long;
var
  varTWSAData : TWSAData;
  varPHostEnt : PHostEnt;
  varTInAddr : TInAddr;
  namebuf : Array[0..255] of AnsiChar;
begin
  If WSAStartup($101,varTWSAData) <> 0 Then
  Result := 'Не удалось опеределить IP адрес'
  Else Begin
    GetHostName(namebuf,sizeof(namebuf));
    varPHostEnt := GetHostByName(namebuf);
    varTInAddr.S_addr := u_long(pu_long(varPHostEnt^.h_addr_list^)^);
    Result := 'IP Address: '+inet_ntoa(varTInAddr);
  End;
  WSACleanup;
end;
 
             // ПОЛУЧАЕМ ОСНОВНОЙ ШЛЮЗ//
function GetDefaultGateway():AnsiString;
begin
  dwSize := 0;
  if GetIpForwardTable(nil, dwSize, bOrder) = ERROR_INSUFFICIENT_BUFFER then
  begin
    GetMem(pIpForwardTable, dwSize);
    try
      dwStatus := GetIpForwardTable(pIpForwardTable, dwSize, bOrder);
      if dwStatus = ERROR_SUCCESS then
      begin
        addr.S_addr := pIpForwardTable.table[0].dwForwardNextHop;
        Result:='Default Gateway: '+(inet_ntoa(addr));
      end;
    finally
      FreeMem(pIpForwardTable);
    end;
  end;
end;
 
                //ПРИМЕНЕНИЕ//
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text :=GetIPAddress();
Edit2.Text :=GetDefaultGateway();
end;
 
end.