在下新手，需要实现fttp文件下栽，但遇难题，焦急万分，请高手帮助，望看详情。。。。(200分)

用以下代码可以下载文件：
procedure tform1.DownloadFile(strHost, strRemoteFileName, strLocalFileName: string; ClientSocket: TClientSocket);
var
intReturnCode: Integer;
s: string;
szBuffer: array[0..128] of Char;
FileOut: TFileStream;
begin
if strRemoteFileName[1] <> '/' then
strRemoteFileName := '/' + strRemoteFileName;
FileOut := TFileStream.Create(strLocalFileName, fmCreate);
try
with ClientSocket do
begin
Host := strHost;
ClientType := ctBlocking;
Port := 80;
try
Open;
s := 'GET ' + strRemoteFileName + ' HTTP/1.0'#13#10 +
'Host: ' + strHost + #13#10#13#10;
intReturnCode := Socket.SendBuf(Pointer(s)^, Length(s));
if intReturnCode > 0 then
begin
while (intReturnCode > 0) do
begin
FillChar(szBuffer, SizeOf(szBuffer), 0);
caption := inttostr(intReturnCode);
intReturnCode := Socket.ReceiveBuf(szBuffer, SizeOf(szBuffer));

if intReturnCode > 0 then
FileOut.Write(szBuffer, intReturnCode);
end
end
else
MessageDlg('No answer from server', mtError, [mbOk], 0);
Close;
except
MessageDlg('No connection', mtError, [mbOk], 0);
end;
end;
finally
FileOut.Free
end;
end;

但下载文件会多出一段服务器信息之内的东西，比如：
原txt文件：

ver=1.1
http=192.168.1.181
path=/test/
fileCount=3
filever1=1.0
filename1=wordpad.exe
filepppath1=wordpad.exe
filever2=1.0
filename2=test
filepppath2=test
filever3=1.0
filename3=tt1
filepppath3=tt1


将变成：
HTTP/1.1 200 OK
Server: Microsoft-IIS/5.0
Date: Thu, 01 Nov 2001 07:53:07 GMT
Content-Type: text/plain
Accept-Ranges: bytes
Last-Modified: Wed, 31 Oct 2001 09:46:56 GMT
ETag: "02827faf061c11:883"
Content-Length: 214

ver=1.1
http=192.168.1.181
path=/test/
fileCount=3
filever1=1.0
filename1=wordpad.exe
filepppath1=wordpad.exe
filever2=1.0
filename2=test
filepppath2=test
filever3=1.0
filename3=tt1
filepppath3=tt1

我特别需要下载exe等可执行文件，如何去掉多出的服务器信息部分？
曾试过在buffer找两个回车的方法，但不知什么原因无法成功。
实在束手无策，万忘指点一二，如有其他方法实现相同功能也可。
如能帮助小弟，请尽可能的告知详细实现方法，我真的是没办法了啊。。。。。。。。

应该是下载Http的内容吧，为什么不用Http方面的控件呢，比如ICS、Indy等，再不行
用D5自带的FastNet啊。

呵呵，研究一下。

我是新手，说大概我还是不明白，望能详细叙述解决方法
比如用什么控件，如何写代码等等，另程序是给客户使用，可能不能用delphi以外的控件
最好实验成功再教我，谢谢。

你直接用NMHTTP组件就可以了,何必要自己写那么一大堆.我也有这个源代码,你要的话可以
发给你.我的email是kan@freetrend.com.vn,你可以直接发信来.不过代码很简单,只是能实
现下载文件和显示进度.

多人接受答案了。