Получить полный ответ от Socket

[Shouldercannon]

От сервера приходит очень длинный ответ, который разбит на части. Собственно, как произвести получение всего содержимого?

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket.Socket.SendText('status');
end;
...
procedure TForm1.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  s, temps: string;
begin
  s := Socket.ReceiveText;

  // Опрашиваем сервер с целью получения полного ответа, если таковое требуется
  while not (Pos('/query/', s) <> 0) do
  begin
    ClientSocket.Socket.SendText('status');
    temps := Socket.ReceiveText;
    s := s + temps;
  end;
end;

Данный способ не работает. Такая реализация работает только на UDP.

Помогите пожалуйста.

[Пепел Феникса]

а зачем вы снова посылаете запрос?
прочтите сначало ответ прежде чем чтото снова слать.

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

[Shouldercannon]

Точно

procedure TForm1.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  s: string;
begin
  s := Socket.ReceiveText;
  Writing(s);
end;

procedure TForm1.Writing(Text: string);
var
  txt: string;
  SL: TStringList;
begin
  txt := txt + Text;

  if Pos('status', txt) <> 0 then
  begin
    SL := TStringList.Create;
    SL.Add(txt);
    SL.SaveToFile('data.txt');
    SL.Free;
  end;
end;

[Пепел Феникса]

txt := txt + Text;

ну глобальной она от этого не стала.
и итого у вас по сути txt:=Text.