Estoy usando idhttp (Indy) para hacer algunas verificaciones del sitio web. Todo lo que quiero que haga es verificar el código de respuesta del servidor después de que se haya enviado mi solicitud, no quiero tener que recibir la salida HTML del servidor, ya que solo estoy monitoreando un código 200 OK, cualquiera otro código significa que hay un problema de alguna forma.

He buscado documentos de ayuda idhttp y la única forma en que podría hacer esto sería asignar el código a unMemoryStream y luego simplemente elimínelo de inmediato, sin embargo, eso no es muy eficiente y usa memoria que no es necesaria. ¿Hay alguna manera de simplemente llamar a un sitio y obtener la respuesta pero ignorar el HTML enviado que es más eficiente y no desperdicia memoria?

Actualmente el código se vería así. Sin embargo, esto es solo un código de muestra que aún no he probado, solo lo estoy usando para explicar lo que estoy tratando de hacer.

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;