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