diff --git a/packages/fcl-base/src/uriparser.pp b/packages/fcl-base/src/uriparser.pp
index ffca5854f6..2aa04df7ac 100644
--- a/packages/fcl-base/src/uriparser.pp
+++ b/packages/fcl-base/src/uriparser.pp
@@ -167,11 +167,14 @@ begin
 end;
 
 function ParseURI(const URI, DefaultProtocol: String; DefaultPort: Word;Decode : Boolean = True):  TURI;
+
 var
   s, Authority: String;
   i,j: Integer;
   PortValid: Boolean;
+  
 begin
+  Result:=Default(TURI);
   Result.Protocol := LowerCase(DefaultProtocol);
   Result.Port := DefaultPort;