From 437aab34dea258c4fc5a7041cd047987c70ece3b Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 9 Aug 2015 16:04:01 +0000
Subject: [PATCH] * Fix by Michalis Kamburelis for bug #28496

git-svn-id: trunk@31305 -
---
 packages/fcl-base/src/uriparser.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-base/src/uriparser.pp b/packages/fcl-base/src/uriparser.pp
index 35ed2e9ac5..ffca5854f6 100644
--- a/packages/fcl-base/src/uriparser.pp
+++ b/packages/fcl-base/src/uriparser.pp
@@ -266,7 +266,7 @@ begin
   // Extract the port number
 
   i := LastDelimiter(':@', Authority);
-  if (i > 0) and (Authority[i] = ':') then
+  if (i > 0) and (i < Length(Authority)) and (Authority[i] = ':') then
   begin
     PortValid := true;
     for j:=i+1 to Length(Authority) do