diff --git a/packages/fcl-base/src/fptemplate.pp b/packages/fcl-base/src/fptemplate.pp
index 46897dd45f..5ba931067b 100644
--- a/packages/fcl-base/src/fptemplate.pp
+++ b/packages/fcl-base/src/fptemplate.pp
@@ -462,9 +462,9 @@ begin
   if FAllowTagParams then
   begin//template tags with parameters are allowed
     SLen:=Length(Src);
+    Result:='';
     If SLen=0 then
       exit;
-    Result:='';
     SP:=PChar(Src);
     P:=SP;
     While (P-SP<SLen) do
@@ -515,10 +515,10 @@ begin
     If FParseLevel>FMaxParseDepth then
       Raise ETemplateParser.CreateFmt(SErrParseDepthExceeded,[FMaxParseDepth]);
     SLen:=Length(Src); // Minimum
+    Result:='';
     If SLen=0 then
       exit;
 //    STLen:=Length(FStartDelimiter);
-    Result:='';
     SP:=PChar(Src);
     P:=SP;
     While (P-SP<SLen) do