用ICS的HTTP控件POST数据以后，所有的回车都不见了 (100分)

用ICS的HTTP控件POST数据以后，所有的回车都不见了

DataOut := TMemoryStream.Create;
Buf := 'user=xxxx&text=xxxxx...' //text比较长，包含回车
DataOut.Write(Buf[1], Length(Buf));
DataOut.Seek(0, soFromBeginning);
httpcli1.SendStream := DataOut;
httpcli1.RcvdStream := nil;
httpcli1.URL :='http://localhost/t.asp';
httpcli1.Post;


在T.ASP里
set fso=Server.CreateObject("Scripting.FileSystemObject")
set f=fso.CreateTextFile(server.mappath("d.txt"),true)
f.writeline request.form("text")
f.close

打开d.txt，所有的回车不翼而飞，怎么办？

重新格式化数据

怎么格式化？能给出部分代码吗？

靠，自己解决了

Buf := 'user=xxxx&text='+HTTPEncode(text)

要uses HTTPApp单元

白送xzh2000一百分了……