procedure sdWriteToStream(S: TStream; const Value: Utf8String);