Why can't you just write something small using TStream?