[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;