简单的问题？？？急(50分)

如何将串送入TMemoryStream，又怎样从TMemoryStream中开始位置100读20长数据到串中
另外谁有TMemoryStream方面操作的中文资料
var
ms1:TMemoryStream;
s_data :string;
begin
s_data :='0123456789';
ms1:=TMemoryStream.Create;
ms1.Position:=0;
ms1.WriteBuffer(s_data,2);
ms1.SaveToFile('c:/bm.dat');
ms1.free;
end;

var
ms1: TMemoryStream;
aa1: Array[0..1000] of Char;
bb2: Array[0..20] of Char;
begin
ms1 := TMemoryStream.Create;
StrPCopy(aa1,Edit1.Text);
ms1.Write(aa1,1000);
ms1.Position := 100;
ms1.Read(bb2,20);
bb2[20] := Chr(0);
Edit1.Text := StrPas(bb2);
end;

没有人再回答了，我就要给分了

接受答案了.