Como Liberar el Buffer de Recepción del un TCustomIpClient????
 

Como puedo Liberar el Buffer de Recepción del un TCustomIpClient????

Lo que pasa es que estoy haciendo pruebas en el Demo Netchar que viene con el Delphi usando TcpServer y TcpClient, mando mensajes entre 2 Terminales reciben y envian Correctamente, pero exactamente en la Enviada número 40 de los 2 clientes se PARA,deja de recibir mensajes en los 2 clientes, he andado investigando como vaciar el buffer de recepción, pero no encuentro la forma de hacerlo, ó si alguien sabe que truco hay para hacerlo se los agradeceía muchisimo.

En la recepción de mensajes lo hago en el OnAccept del TcpServer:

Código Delphi [-]
procedure TForm1.TcpServer1Accept(sender: TObject;
  ClientSocket: TCustomIpClient);
var
  s: string;
begin
  s :=ClientSocket.Receiveln;
  while s <> '' do
  begin
    memRecv.Lines.Add(s);//Recibe en Memo
    s := ClientSocket.Receiveln;
  end;
  Label5.caption:=IntToStr(StrToInt(Label5.caption)+1);
  if StrToInt(Label5.caption)>=50 then begin
    memRecv.Clear;
  end;
end;

Y ya lo intente de esta otra forma:

Código Delphi [-]
procedure TForm1.TcpServer1Accept(sender: TObject;
  ClientSocket: TCustomIpClient);
var
  s: string;
  DataThread: TClientDataThread;
begin
   DataThread:= TClientDataThread.Create(true);
   DataThread.TargetList := memRecv.lines;
   DataThread.ListBuffer.Add('*** Conexión Aceptada ***');
  DataThread.ListBuffer.Add('Remote Host: ' + ClientSocket.LookupHostName(ClientSocket.RemoteHost) +
   ' (' + ClientSocket.RemoteHost + ')');
  DataThread.ListBuffer.Add('===== Inicio del Mensaje =====');

  s :=ClientSocket.Receiveln;
  while s <> '' do
  begin
   DataThread.ListBuffer.Add(s);
    s := ClientSocket.Receiveln;
  end;
  DataThread.ListBuffer.Add('===== Fin del Mensaje =====');
  Label5.caption:=IntToStr(StrToInt(Label5.caption)+1);
  DataThread.Resume;
end;

Que tengan buen día.