unit Fcl.Streams.Chained;
{$DEFINE FPC_DOTTEDUNITS}
{$i chainstream.pp}