Set E.Status on Http Status code

(fix) correction of the Senderror call passing the E.Status

Author: gabrielbaltazar

Src/Horse.HandleException.pas

@@ -69,7 +69,7 @@ procedure HandleException(Req: THorseRequest; Res: THorseResponse; Next: {$IF DE
         LStatus := Integer(THTTPStatus.InternalServerError);
       LJSON := TJSONObject.Create;
       LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('error', E.Message);
-      SendError(Res, LJSON, Integer(E.Status));
+      SendError(Res, LJSON, LStatus);
     end;
   end;
 end;