Я уже нашел как:

Затем накопляет ответ в StrList и проверяет в нём при каждом принятом куске запроса маску *</html>*Если находит, то ищет FindBlock в StrList нужные данные, затем закрывает соединение TCP клиента и очищяет StrList
Круто я придумал