[NameX]

Почему когда я пытаюсь получить пакеты TCPClient.Receiveln , он возвращает пустое значение?
Свойства:
RemoteHost: mrim.mail.ru;
RemotePort: 2041 пробовал, и 2042, и 443;
Соответственно Active: True
Что не так? А когда заходишь через браузер на mrim.mail.ru пакет выдается!
Кусок кода:

Код:

if TCPClient.Connected then 
MrimU:=TCPClient.Receiveln;

[NumLock]

можно без TTcpClient:

Код:

uses
  msxml,
  ComObj,

function responseText(Url: String): String;
var
  xml: IXMLHttpRequest;
begin
  xml:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
  xml.open('GET', Url, False, '', '');
  xml.send('');
  if xml.status=200 then Result:=xml.responseText else Result:='';
end;

использование:

Код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:=responseText('http://mrim.mail.ru:443/');
end;