[AGAG4]

Gracias por su respuesta le dejo mi correo agag4@hotmail.com, si me hace el favorsote de enviarme un ejemplo, y le comento con el TcpServer si uso los Thearing al recibir mensajes pero se cuelga en determinado numero de mensajes recibidos aprox. 50 mensajes por ejemplo:

Código Delphi [-]
  TClientDataThread = class(TThread)
  private
  public
    ListBuffer:TStringList;
    TargetList:TStrings;
    procedure synchAddDataToControl;
    constructor Create(CreateSuspended: Boolean);
    procedure Execute; override;
    procedure Terminate;
    procedure LeerMensaje(Mensaje:TStringList);
    function BuscarScript(Fol,SucO:String):Boolean;
    function DameScript(Mensaje:TStringList):String;
  end;
.......
procedure TfGrdCli.TcpServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
  s: string;
  DataThread: TClientDataThread;
begin
  DataThread:= TClientDataThread.Create(true);
  DataThread.TargetList := memRecv.Lines;

  memRemoto.Clear;
  S:=ClientSocket.Receiveln;
  
  while s <> '' do  begin
    memRemoto.Add(s);
    DataThread.ListBuffer.Add(s);
    s := ClientSocket.Receiveln;
  end;
  DataThread.Resume;
   DataThread.LeerMensaje(memRemoto);
  label1.caption:=IntToStr(StrToInt(label1.caption)+1);
end;

Que tenga buen día.