怎么把 OleVarient 的数据装入 TStream

如何把 OleVarient 的数据装入 TStream
如何把 OleVarient 的数据装入 TStream
并且再反向取出？

[解决办法]
请参考
procedure TWriter.WriteVariant(const Value: Variant)；
function TReader.ReadVariant: Variant;