处理函数： function DoStep1(streamin:Tstream;streamout:Tstream):integer;

你不能：
DoStep1(stingstream1,sout);
DoStep1(memorytream1,sout);
DoStep1(stingstream2,sout);
DoStep1(memorytream2,sout);
DoStep1(memorytream3,sout);
DoStep1(myfilestream1,sout);

而必须：
DoStep1(allstream1,sout);

allstream.write()
{
先取完stingstream1
再取完memorytream1
。。。
当然，每次都只返回一个字节
}