Indy10--idtcpserver内存流传输问题

Question

Server端：procedure TFrm_Main.TCPServerExecute(AContext: TIdContext);
var
  AStream : TMemoryStream;
begin
  .....
  .....  
  .....SaveToStream(AStream);  (这里已经转入进去了，我跟踪过没问题)
  AContext.connection.IOHandler.Write(AStream.Size);
  ......
  ......
end；
Client端：procedure TfrmClient.btnGetSQLData(Sender: TObject);
var
  AStream : TMemoryStream;
begin
  with IdTCPClient do
  begin
    ....
    ....
    Connect;
    IOHandler.WriteLn('SQLDATA:' + 'SELECT * FROM TABLE');
    AStream := TMemoryStream.Create;
    VclAStream:=TIdStreamVCL.Create(AStream);  (因为indy10版本的ReadStream（参数是TIdStreamVCL型）)
    IOHandler.ReadStream(VclAStream,-1,True);
    AStream.Position := 0;
    showmeessage（inttostr（AStream.size））这里show出来是有值的。。单就是内存流数据载入到表格中，不对
    LoadFromStream(AStream); （载入到表格里面去，但是始终没成功取得到数据）
    ...
    ...
end;