モナーの *やさしい* Delphi質問スレ Ver.14

ちょっと前に multipart/form-data でアップする方法について質問したのですが、
アップできません。。。 何が原因なのでしょうか？
http://forgamedev.zombie.jp/uploader/up5/upload.php

エラーは出ません。
リロードしただけのようです。

　S := 'POST /uploader/up5/upload.php?MAX_FILE_SIZE=1048576&pass=a&com=test HTTP/1.0' + #13#10;
　S := S + 'Host: forgamedev.zombie.jp' + #13#10;
　S := S + 'Accept-Language: jp , en' + #13#10;
　S := S + 'Content-type: multipart/form-data, boundary=ABCD0123' + #13#10;
　S := S + #13#10;
　S := S + '--ABCD0123' + #13#10;
　S := S + 'content-disposition: form-data; name="upfile"; filename="test.txt"' + #13#10;
　S := S + 'Content-Type: text/plain' + #13#10;
　S := S + #13#10;
　S := S + 'testdesu' + #13#10;
　S := S + '--ABCD0123--' + #13#10;
　S := S + #13#10;

スレッドのExecuteで、
　Stream := TWinSocketStream.Create(FClientSocket.Socket, 6000);
　try
　　Stream.Write(S[1], Length(S));
　　while Stream.WaitForData(Stream.TimeOut) do
　　...
とやっています。