var
ReceiveText, line: string;
j: integer;
j:=Pos(Char(13)+Char(10), ReceiveText)
// $0D$0A 一行标志
while j>0 do
begin
line:=Copy(ReceiveText, 1, j-1)
// 取一行
Delete(ReceiveText, 1, j+1)
// 删除一行
...
// 这里你对收到每一行进行分析处理
// 如果只是要没有 $0D$0A 的字串,另存一个变量把line再加一次就行了
...
j:=Pos(Char(13)+Char(10), ReceiveText)
// 指向下一行
end;