* Send code 500 in case of exception.

git-svn-id: trunk@17597 -

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

@@ -272,6 +272,8 @@ begin
     end;
   If (not R.HeadersSent) then
     begin
+    R.Code:=500;
+    R.CodeText:='Application error '+E.ClassName;
     R.ContentType:='text/html';
     end;
   If (R.ContentType='text/html') then