这两个函数

function app_path1:string

function socket_rec_line1(socket1:TCustomWinSocket timeout1:integer crlf1:string=#13#10):string

实际上是我的一个公用单元中的函数，大家应该养成建立自己的公用单元的习惯。

socket_rec_line1函数中用了唐晓峰大侠的coolmail中的办法：只是简单的一个一个字节收取，找到结束

标志后就算收完一行了，大家实际应用时可能应该找更好的办法。