AThread.Connection.ReadStream写的对不对 接收不到东西呢？

Delphi(Pascal) code

begin
//发
MyStream:=TMemoryStream.Create;
MyStream.Write(TempStr[1],Length(TempStr));
MyStream.Position:=0;
i:=MyStream.size;
//发的大小
AThread.WriteInteger(i);
AThread.WriteStream(MyStream);
MyStream.Free;
end;
begin
//接
RStream := TMemoryStream.Create;
Size := AThread.Connection.ReadInteger;
AThread.Connection.ReadStream(RStream, Size, true); //False
RStream.Position := 0;
Setlength(TempStr, RStream.Size);
RStream.Read(TempStr[1], RStream.Size);
Memo3.Lines.Text := TempStr; 
end;

Memo3.Lines.Text接不到东西.是不是我写错了...帮看一下....


我刚才试了一下.我把Client窗体关了.
srever窗体的Memo3.Lines.Text接到了.
为什么？

RStream:Tstringstream;