Pár utržků kódu k XE8

implementation
uses
  System.Net.httpclient,System.Net.URLClient;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);
var
  o: THTTPClient;
  response: IHTTPResponse;
  r: TNameValuePair;
begin
  o := THTTPClient.Create;
  try
    response:=o.Get('https://www.google.com/');
    for r in response.Headers do
      memo1.Lines.Add(r.Name + '='+r.Value);
    Memo1.Lines.Add(response.ContentAsString);
  finally
    o.Free;
  end;
end;

const
{$IF Defined(NEXTGEN) and Declared(System.Embedded)}
  advapi32kernel = 'kernelbase.dll';
  advapi32legacy = 'advapi32legacy.dll';
{$ELSE}
  advapi32kernel = 'advapi32.dll';
  advapi32legacy = 'advapi32.dll';
{$ENDIF}
  advapi32  = 'advapi32.dll';
  kernel32  = 'kernel32.dll';
{$IF Defined(NEXTGEN) and Declared(System.Embedded)}
  kernelbase = 'kernelbase.dll';
{$ELSE}
  kernelbase = 'kernel32.dll';
{$ENDIF}