Fixed the TBrookHTTPResponse.SendEmpty() method not to destroy the he…

…aders.

Package/BrookTardigrade.dproj

@@ -88,9 +88,9 @@
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=5.4.1.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=5.4.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=5.4.2.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=5.4.2.0;Comments=</VerInfo_Keys>
         <VerInfo_MinorVer>4</VerInfo_MinorVer>
-        <VerInfo_Release>1</VerInfo_Release>
+        <VerInfo_Release>2</VerInfo_Release>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>

Package/BrookTardigrade.lpk

@@ -28,7 +28,7 @@ Lesser General Public License for more details.
 You should have received a copy of the GNU Lesser General Public
 License along with Brook framework; if not, write to the Free Software
 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA"/>
-    <Version Major="5" Minor="4" Release="1"/>
+    <Version Major="5" Minor="4" Release="2"/>
     <Files Count="23">
       <Item1>
         <Filename Value="../Source/BrookDefines.inc"/>

Source/BrookHTTPResponse.pas

@@ -408,13 +408,13 @@ procedure TBrookHTTPResponse.SendStream(AStream: TStream; AStatus: Word);
 
 procedure TBrookHTTPResponse.SendEmpty(const AContentType: string);
 begin
-  Clear;
+  Reset;
   Send('', AContentType, 204);
 end;
 
 procedure TBrookHTTPResponse.SendEmpty;
 begin
-  Clear;
+  Reset;
   Send('', '', 204);
 end;