// get the next IP address
  Inc(AIpStruct.FullAddr);
  AString := Format('%d.%d.%d.%d',
    [ AIpStruct.Byte1,
      AIpStruct.Byte2,
      AIpStruct.Byte3,
      AIpStruct.Byte4 ]);