关于 connection closed gracefully(48分)

下面事服务器的一段程序，客户端用idhttp请求接收xml流
出错信息是：connection closed gracefully
服务器端生成的aaa.xml也正确，可能是传流的时候出错
怎么办呢？我只有这么多分了，帮帮我


procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
reqstr:string;
sqlstr:string;
s:Tstream;
begin
if Request.QueryFields[0]='getsql' then
begin
sqlstr:=Request.QueryFields[1];
try
adoquery1.Close;
adoquery1.SQL.Text:=sqlstr;
adoquery1.Open;
clientdataset1.Open;
s:=Tfilestream.Create('aaa.xml',fmcreate);
s.Seek(0,sofrombeginning);
clientdataset1.SaveToStream(s,dfxml);
response.ContentStream:=s;
finally
s.Free;
end;
end;
end;