IdHttp Just Get Response Code

Я использую idhttp (Indy) для некоторых проверка сайта. Все, что я хочу, это проверить код ответа с сервера после того, как мой запрос был отправлен, я не хочу, чтобы на самом деле мне приходилось получать выходные данные HTML с сервера, поскольку я отслеживаю только код 200 OK, любой другой код означает, что существует проблема некоторой формы.

Я просмотрел справочные документы idhttp, и единственный способ, которым я мог это сделать, - это присвоить код MemoryStream , а затем сразу очистить его, однако это не так. очень эффективен и использует ненужную память. Есть ли способ просто позвонить на сайт и получить ответ, но игнорировать отправленный обратно HTML, который более эффективен и не тратит впустую память?

В настоящее время код будет выглядеть примерно так. Однако это всего лишь образец кода, который я еще не тестировал, я просто использую его, чтобы объяснить, что я м пытаюсь сделать.

Procedure Button1Click(Sender: TObject);

var
http : TIdHttp;
s : TStream;
url : string;
code : integer;

begin 

   s := TStream.Create();
   http := Tidhttp.create();
   url := 'http://www.WEBSITE.com';

   try

    http.get(url,s);
    code := http.ResponseCode;
    ShowMessage(IntToStr(code));

   finally

   s.Free();
   http.Free();

end;