Delphi,如何获取所有本地IP？

uses
  IdStack, IdStackConsts;

function GetLocalIPAddresses: TStrings;
var
  Addrs: TIdStackLocalAddresses;
  I: Integer;
begin
  Result := TStringList.Create;
  try
    Addrs := TIdStack.Inc(nil).LocalAddresses;
    try
      for I := 0 to Length(Addrs) - 1 do
      begin
        Result.Add(Addrs[I].IPAddress);
      end;
    finally
      TIdStack.Dec(Addrs);
    end;
  except
    Result.Free;
    raise;
  end;
end;

uses
  IdStack, IdStackConsts;

function GetLocalIPAddressesAndSubnetMasks: TStrings;
var
  Addrs: TIdStackLocalAddresses;
  I: Integer;
begin
  Result := TStringList.Create;
  try
    Addrs := TIdStack.Inc(nil).LocalAddresses;
    try
      for I := 0 to Length(Addrs) - 1 do
      begin
        Result.Add(Format('%s (%s)', [Addrs[I].IPAddress, Addrs[I].SubnetMask]));
      end;
    finally
      TIdStack.Dec(Addrs);
    end;
  except
    Result.Free;
    raise;
  end;
end;