--- Merging r31305 into '.':

U    packages/fcl-base/src/uriparser.pp
--- Recording mergeinfo for merge of r31305 into '.':
 U   .

# revisions: 31305

git-svn-id: branches/fixes_3_0@33349 -

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