Set E.Status on Http Status code

Author: viniciussanchez

Src/Horse.HandleException.pas

@@ -60,7 +60,7 @@ procedure HandleException(Req: THorseRequest; Res: THorseResponse; Next: {$IF DE
       begin
         LJSON.{$IF DEFINED(FPC)}Add{$ELSE}AddPair{$ENDIF}('type', GetEnumName(TypeInfo(TMessageType), Integer(E.&Type)));
       end;
-      SendError(Res, LJSON, E.Code);
+      SendError(Res, LJSON, Integer(E.Status));
     end;
     on E: Exception do
     begin