procedure TForm1.Button2Click(Sender: TObject);
var http:THttpSend;              
   list:TStringList;        
   str:string;
begin
HTTP:=THTTPSend.Create;
list:=TStringList.Create;
     if HTTP.HTTPMethod('GET','https://bitinfocharts.com') then
     begin
     if http.ResultCode=200 then
       begin
       list.LoadFromStream(http.Document);
       str:=list.Text;
       LogFileOutput('log1.txt','200');
       end else
           begin
           list.LoadFromStream(http.Document);
           str:=list.Text;
           LogFileOutput('log1.txt','not 200 '+inttostr(http.ResultCode));
           end;
      end else
           begin
           list.LoadFromStream(http.Document);
           str:=list.Text;
           LogFileOutput('log1.txt','not get '+inttostr(http.ResultCode));
           end;
http.Free;
list.Free;
end;

http.Headers.Add('Accept-Encoding: gzip,deflate');
http.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
http.Headers.Add('Accept-Language: en-US,en;q=0.5');
http.Headers.Add('Connection: keep-alive');