PegFilter: EndPeg = BeginPeg when EndPeg is non-existent

Units/mPegFilter.pas

@@ -329,7 +329,10 @@ end;
 
 function TPegStrFilter.GetEndPeg: string;
 begin
-  Result := MergePeg(FEndPegList);
+  if FEndPegList.Count > 0 then
+    Result := MergePeg(FEndPegList)
+  else
+    Result := MergePeg(FBeginPegList);
 end;
 
 function TPegStrFilter.GetSubPeg(AIndex: Integer): string;