Idhttp ottieni solo codice di risposta

Question

Sto usando IDHTTP (INDY) per fare un controllo del sito Web. Tutto quello che voglio fare è controllare il codice di risposta dal server dopo l'invio della mia richiesta, non voglio effettivamente ricevere l'output HTML dal server mentre monitorano solo un codice OK da 200, Altro codice che significa che c'è un problema di qualche forma.

Ho cercato i documenti di aiuto Idhttp e l'unico modo per vedere per farlo sarebbe quello di assegnare il codice a un MemoryStream E poi eliminalo subito, tuttavia non è molto efficiente e usa la memoria che non è necessaria. C'è un modo per chiamare un sito e ottenere la risposta ma ignorare l'HTML inviato più efficiente e non spreca la memoria?

Attualmente il codice sembrerebbe qualcosa di simile. Tuttavia, questo è solo un codice di esempio che non ho ancora testato, lo sto solo usando per spiegare cosa sto cercando di fare.

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;