procedure SendError(StatusCode: Integer; const StatusMessage:
      String; const Content: String='')

Sends a status code and message along with an optional UTF-8-encoded text response with a Content-Type header of "text/plain; charset=utf-8".