Delphi Get IPAddress and MacAddress with JEDI

JEDI get All IPAddress and MacAddress.

Sample code:

var
  MacAddress: TStrings;
  IPAddress: TStrings;
  i: integer;
begin
  IPAddress := TStringList.Create;
  MacAddress := TStringList.Create();
  JclSysInfo.GetMacAddresses('', MacAddress);
  JclSysInfo.GetIpAddresses(IPAddress);

  Memo1.Clear;

  for i := 0 to IPAddress.Count - 1 do
    Memo1.Lines.Add(format('IPv4..... : %s    MacAddress..... : %s',  [IPAddress[i], MacAddress[i]]));

  MacAddress.Free();
  IPAddress.Free();