TMemoryStream怎么写不进文件？(50分)

关键代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
TMS:TMemoryStream;
mybuffer:array[0..7]of string;
begin
TMS.Create;
mybuffer[0]:='0';
mybuffer[1]:='1';
mybuffer[2]:='2';
mybuffer[3]:='3';
mybuffer[4]:='4';
mybuffer[5]:='5';
mybuffer[6]:='6';
mybuffer[7]:='7';
TMS.Write(mybuffer,8);
TMS.SaveToFile('e:/xx.txt');
end;

运行是报“stream write error”

在TMS.SaveToFile('e:/xx.txt');之前
加入下面这句
Tms.position:=0;

對像創建方法錯誤.
TMS:=TMemoryStream.Create; //不是TMS.Create;

TMS.Write(mybuffer^,8);

谢谢，已搞定！