procedure SendContentStream(const ContentStream: TStream; StatusCode: Integer=HTTP_OK; const StatusMessage: String='')