TWinHTTP

uses
  SynCrtSock;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  mmo1.Lines.Add( TWinHTTP.Get('https://www.baidu.com'));
end;

静态调用