这两个函数
function app_path1:string;
function socket_rec_line1(socket1:TCustomWinSocket;timeout1:integer;crlf1:string=#13#10):string;
实际上是我的一个公用单元中的函数，大家应该养成建立自己的公用单元的习惯。
socket_rec_line1函数中用了唐晓峰大侠的coolmail中的办法：只是简单的一个一个字节收取，找到结束
标志后就算收完一行了，大家实际应用时可能应该找更好的办法。
这个程序的目的是：flashget在下载象51.net系列[如我的clq.51.net]中的程序时，会因为这些网站上的
自定义错误页面而导致下载的文件出错，具体见“大富翁”上的
“http://www.delphibbs.com/delphibbs/dispq.asp?lid=1170159”
虽然这是一个演示程序，不能下载地址转向的东东。但对于固定地址文件的下载已经很不错了，我的公司
不能装多线程的东东我一直用这个下载我要的大文件，“大富翁”200多M的离线数据这是用它下载的。
大家对源码有什么不明白的请在“http://www.delphibbs.com/delphibbs/dispq.asp?lid=1170159”中提
出。
--------------------------------------------------------------------------------------------
本程序能改正flashget的这个bug是因为我们用http的头信息中是否包含
“Content-Range: bytes 533263-533263/565691”
这样的符号来判断服务器返回的是否是我们要的文件信息。而flashget则不是这样的，如果哪位网友能
通知flashget的作者改正这个bug我将感激不尽！我与其作者联系过，但他只回了一封信，问题并没有解
决。:( 如果有网友发现flashget新版本中解决了这个问题，也请您告诉我一声，先谢谢您了！
--------------------------------------------------------------------------------------------
clq
or
real_clq