IdTCPClient не могу получить пакет.

[Semreg]

Вот кусок кода:

PHP код:

procedure TForm1.FormActivate(Sender: TObject);
begin
  IdTCPClient1.Host := '***.***.***.***';
  IdTCPClient1.Port := *****;
  IdTCPClient1.Connect;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  otvet: System.Text;
  temp: String;
begin
  IdTCPClient1.WriteFile('vopros.dat');
  AssignFile(otvet, 'otvet.dat');
  Rewrite(otvet);
    temp := IdTCPClient1.ReadLn();
    WriteLn(otvet, temp);
    Memo1.Lines.Add(temp);
  CloseFile(otvet);
end; 


Сервер - не мой.
При нажатии на кнопку Memo1 - пустое, файл otvet.dat - пустой.
Снифер показывает, что пакет от клиента отправлен и показывает пакет, который приходит от сервера. Дельфи пакет приходящий от сервера не видит, переменная temp пустая...

В снифере видно, про приходящий пакет состоит из 78 бит...

В чем проблема? Прошу помочь советом

[Slym]

ReadLn - ты понимаешь что такое LN?

и так не делается...
IdTCPClient1.Connect; и работа обычно не размазываются по нескольким кнопкам

[Semreg]

ReadLn - ты понимаешь что такое LN?

Ждет ответ от сервера и записывает первую линию/строку в данном случае в переменную.

и так не делается...
IdTCPClient1.Connect; и работа обычно не размазываются по нескольким кнопкам

У меня на форме должно быть 3-и кнопки, каждая из которых разные пакеты отправляет. Поэтому и вынес в процедуру FormActivate соединение с сервером.

Пару раз из 200 запусков непонятно каким образом у меня корректно файл otvet.dat создался.
Сравнил в HEXредакторе файл otvet.dat с ответом в снифере.
Вывод - идентичны.
Остальные 198 запусков файл otvet.dat создается 2-х байтный пустой.

[Slym]

LN - означает читать пока не получу байты #13#10 или байт #10
если данные пришли и в них нет вышеперечисленного то программа будет ждать следующий пакет

[Semreg]

Сообщение от Slym

LN - означает читать пока не получу байты #13#10 или байт #10
если данные пришли и в них нет вышеперечисленного то программа будет ждать следующий пакет

Научи, как поправить, чтоб работало

Прилепил скрин снифера.
Вверху красным - мой отправленный пакет.
Синий ответ всегда почти одинаковый. Различия в несколько байт.