From 264dee652f4ef5f06b0336207fc43e7deb8dd7f0 Mon Sep 17 00:00:00 2001
From: Alexey <alexey.sergeevicha@gmail.com>
Date: Sat, 25 Jul 2026 17:23:46 +0300
Subject: [PATCH] Beta_cartrigesg_bd Beta v0.5

---
 Inventera.iss | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/Inventera.iss b/Inventera.iss
index e79fba5..66c66f7 100644
--- a/Inventera.iss
+++ b/Inventera.iss
@@ -166,8 +166,19 @@ end;
 
 function IsValidPort(const Value: String; var PortNumber: Integer): Boolean;
 begin
-  Result := TryStrToInt(Trim(Value), PortNumber) and
-    (PortNumber >= 1) and (PortNumber <= 65535);
+  Result := False;
+  PortNumber := 0;
+  if Trim(Value) = '' then
+    Exit;
+
+  try
+    PortNumber := StrToInt(Trim(Value));
+  except
+    PortNumber := 0;
+    Exit;
+  end;
+
+  Result := (PortNumber >= 1) and (PortNumber <= 65535);
 end;
 
 function IsValidIdentifier(const Value: String): Boolean;