procedure TForm2.Button1Click(Sender: TObject); var St:WideString; begin // St:=IdHTTP1.Get('https://yandex.ru'); St:=IdHTTP1.Get('https://dns-shop.ru'); ShowMessage(St); end; end.