Как послать запрос к HTTP серверу и получить ответ?

const url = 'https://your-site.hz';  
      user = 'юзернейм';
      token = 'токен';


var whr : Variant;


procedure HTTPRequest(Sender:TObject);
begin
 TdbButton(Sender).Enabled := false; 
try
    try

        // Эквивалент $curl = curl_init();
        whr := CreateOleObject('WinHttp.WinHttpRequest.5.1');

        // Эквивалент curl_setopt($curl, CURLOPT_URL, $query);
        whr.open('GET', url, true);

        // Эквивалент CURLOPT_SSL_VERIFYPEER и curl_setopt($curl, CURLOPT_SSL_VERIFYHOST,0);
        whr.Option(4) := 13056;

        // CURLOPT_RETURNTRANSFER - не требуется

        // Эквивалент $header[0] = "Authorization: whm $user:$token";
        whr.SetRequestHeader('Authorization',Format('whm %s:%s',[user,token]));

        // Эквивалент curl_exec($curl);
        whr.Send();

        whr.WaitForResponse(5);  // таймаут ожидания ответа в секундах

        //  Эквивалент curl_getinfo($curl, CURLINFO_HTTP_CODE);
        ShowMessage(whr.Status)

    except
      // ShowMessage(ExceptionMessage);  // раскомментить для просмотра ошибок
    end;
finally
   TdbButton(Sender).Enabled := true; 
    whr := 0;
end;
end;


procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    HTTPRequest(Sender);
end;

begin        

end.