var
  http: THttpSend;
begin
  http := THttpSend.Create;
  http.Sock.CreateWithSSL(TSSLOpenSSL);
  http.Sock.SSLDoConnect;
  http.UserAgent :='Mozilla/5.0 (Windows NT 10.0; WOW64; rv:47.0) Gecko/20100101 Firefox/47.0';
  HTTP.Protocol := '1.1';

  http.Headers.Add('Accept-Encoding: gzip, deflate, br');
  http.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8');
  http.Headers.Add('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
  http.Headers.Add('Cookie: ' + Memo1.Text);
  http.Headers.Add('Connection: keep-alive');
  http.HTTPMethod('GET', 'https://loveplanet.ru/');
  Showmessage(inttostr(http.ResultCode));
  Memo1.Lines.LoadFromStream(hs.Document);
  http.free;