* Do not send headers before setting content, as content-length will be set by setting the content.

git-svn-id: trunk@17596 -

packages/fcl-web/src/base/custweb.pp

@@ -270,10 +270,9 @@ begin
     R.SendContent;
     Exit;
     end;
-  If not R.HeadersSent then
+  If (not R.HeadersSent) then
     begin
     R.ContentType:='text/html';
-    R.SendHeaders;
     end;
   If (R.ContentType='text/html') then
     begin