我想从TMemoryStream中读入其中的一段数据写到一个TFileStream中,有没有好方法?(86分)

我想从TMemoryStream中读入其中的一段数据写到一个TFileStream中,有没有好方法?
我就剩下1分了

TFileStream.CopyFrom(TMemoryStream,长度);

上面的方法不行！
我是想把TMemoryStream中的一段数据（不是全部！）写到TFileStream中的指定位置（不一定从头开始）！

//·ÖÅ仺´æ£¬½«Òª»ØÊյĽø³ÌÕ¼ÓõÄÄÚ´æËùº¬µÄÊý¾Ý±£´æµ½ÐéÄâÄÚ´æ(FFileStream)ÉÏ
GetMem(Buffer, PProcessInfo(FMemoryProcessList.Items[Index])^.Size);
FMemoryStream.Position := PProcessInfo(FMemoryProcessList.Items[Index])^.FirAdd;
FMemoryStream.Read(Buffer^, PProcessInfo(FMemoryProcessList.Items[Index])^.Size);
//´Óβ²¿Ìí¼Ó
FFileStream.Position := FFileStream.Size;
//ÌîдÐéÄâÄÚ´æʹÓÃÁ´£¨FDiskProcessList)
New(FPProcessInfo);
FPProcessInfo^.FirAdd := FFileStream.Position;
FPProcessInfo^.Size := PProcessInfo(FMemoryProcessList.Items[Index])^.Size;
FPProcessInfo^.StartTime := GetTickCount;
FPProcessInfo^.Priority := PProcessInfo(FMemoryProcessList.Items[Index])^.Priority;
FDiskProcessList.Add(FPProcessInfo);
//дÈë
FFileStream.Write(Buffer^, PProcessInfo(FMemoryProcessList.Items[Index])^.Size);
FreeMem(Buffer, PProcessInfo(FMemoryProcessList.Items[Index])^.Size);

接受答案了.