[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  IdHTTP,
  SysUtils;

var
  http: TIdHTTP;
  s: String;

begin
  http:=TIdHTTP.Create(nil);
  try
    s:=http.Get('http://ya.ru');
    Writeln(http.ResponseText);
    Writeln(s);
  except
    on E: Exception do Writeln(E.message);
  end;
  http.Free;
  Readln;
end.