[sergeok87]

Приветствую всех!

Не получаю ответ от сервера.

Код:

procedure Tf.btnSendClick(Sender: TObject);
var
  buf:string;
begin
  udpSocket.RemoteHost:='hl1master.steampowered.com';
  udpSocket.RemotePort:='27015';
  udpSocket.Connect;
  udpSocket.Sendln(#$71,'');
  udpSocket.Receiveln(buf);
  memo.Lines.Add(buf);
  udpSocket.Disconnect;
end;

Пакет отсылается правильно и доходит до сервера (смотрел сниффером), а вот ответа нет. Программа тупо зависает. Подскажите пожалуйста, что я делаю не так?
Версия Delphi 7 (lite, которая распаковывается в full).