IdTcpServer Delphi XE8 прием передача данных

[ArtGrek]

клиентов будет много без потоков не обойтись
там работало на потоках вроди
и если меняю на ReadLn не считывает

[Aliens_wolfs]

А клиенты должны отключаться после получения нужной инфы?

[ArtGrek]

нет у них тайм аут если долго не активны сесия закрывается
зы. есть скайп или аска

[Aliens_wolfs]

Скайп Aliens_Wolfs

[ArtGrek]

вот так полностью функционирует

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  strm: TMemoryStream;
  data1: TIdBytes;
  TcpReqString, TcpResString: String;
begin
  Memo2.Lines.Add('TCP  Execute');

  if AContext.Connection.Connected then
  begin
    strm := TMemoryStream.Create;
    try
      if AContext.Connection.IOHandler.InputBuffer.Size > 0 then
      begin
        AContext.Connection.IOHandler.ReadStream(strm,
          AContext.Connection.IOHandler.InputBuffer.Size, false);
        strm.Position := 0;
        ReadTIdBytesFromStream(strm, data1, strm.Size);
        TcpReqString := BytesToStringRaw(data1);  // строка с запросом

        Memo1.Lines.Add(TcpReqString);
        Memo1.Lines.Add('============');

        TcpResString := Dialog.TcpResCreate(TcpReqString); // функция парса запроса и создания ответа

        Memo1.Lines.Add(TcpResString);
        Memo1.Lines.Add('-----------------------------------------------');

        AContext.Connection.IOHandler.WriteBufferOpen;
        AContext.Connection.IOHandler.Write(TcpResString);
        AContext.Connection.IOHandler.WriteBufferFlush;
        AContext.Connection.IOHandler.WriteBufferClear;
        AContext.Connection.IOHandler.WriteBufferClose;
      end;
    finally
      strm.Free;
    end;
  end
  else
    Sleep(10);
end;

критика приветствуется, может что нибудь можно улучьшить