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