delphi 聊天通信问题

Question

发送
TcpClient1.Active:=True;
TcpClient1.Connect;
if TcpClient1.Connected then
Label1.Caption:='成功'
else
Label1.Caption:='没有成功';
   for i:=0 to Memo1.Lines.Count-1 do
TcpClient1.Sendln(Memo1.Lines[i]);TcpClient1.Disconnect;接收
 begin
  s:=ClientSocket.Receiveln;
    Memo1.Lines.Add(s);
为什么只能收到一行啊，怎么改成收N行啊

Answer 1

while s:=ClientSocket.Receiveln <> '' do
begin
 Memo1.Lines.Add(s); 
end;

Answer 2

procedure TForm1.Server1Connect(AThread: TIdPeerThread);
var
  text: String;
begin
  Application.MessageBox('来了新邮件.','提示',64);
  text := Athread.Connection.Readln;
  Edit3.Text := FormatDateTime('hh-mm-ss',Now);
  while Trim(Text)<>'' do
  begin
   memo2.Lines.Add(text);
   text := Athread.Connection.Readln;
  end;
end;