///////////////////////////////////////////
//Grab HTML from example.com via HTTP get//
///////////////////////////////////////////
var
  http, url, WScript, doc;

begin
  http := CreateOleObject('MSXML2.XMLHTTP');
  url := 'https://example.com/';
  http.Open ('GET', url, False);

  http.Send ('');

  if  http.Status = 200 Then
  begin
    doc := Application.NewDocument;
    doc.Lines.Add(http.responseText)
  end
  else
    MessageDlg('HTTP error ' + IntToStr(http.Status) + ' ' + http.statusText , mtWarning, [mbOk], 0)
end;