Delphi Indy 取得設定網段中可用的 IP Address

在元件面板 Indy Misc 中有 TIdIPWatch 元件，放一個 TIdIPWatch 和 TMemo 在 Form 上

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdNetworkCalculator1.NetworkAddress.AsString := '192.168.0.48';
  IdNetworkCalculator1.NetworkMask.AsString := '255.255.255.240';
  Memo1.Lines.Clear;
  Memo1.Lines.Values['NetworkClass'] := IdNetworkCalculator1.NetworkClassAsString;
  Memo1.Lines.AddStrings(IdNetworkCalculator1.ListIP);
end;

執行後會列出可用的 IP Address