Поиск строки в ответе сервера

function foo(): Boolean;
var
  Res: Boolean;
  HTTP: THTTPSend;
begin
  Result := False;
 
  HTTP := THTTPSend.Create;
  HTTP.KeepAlive:=true;
  HTTP.KeepAliveTimeout:=300;
  HTTP.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:38.0) Gecko/20100101 Firefox/38.0';
 
  try
    Res := HTTP.HTTPMethod('GET', 'http://site.ru');
    if (Res = True) and (Pos('text', HTTP.Document) <> 0) then
      Result := True;
  finally
    HTTP.Free;
  end;
end;

ss:TStringStream;
 
ss:=TStringStream.Create('');
ss.loadFromStream(memStream);

Function foo(): BooLean;
Var Res: Boolean; HTTP: THTTPSend; strStream: TStringStream;
Begin
Result:=False;
strStream:=TStringStream.Create('');
HTTP:=THTTPSend.Create();
Try
      HTTP.KeepAlive:=True;
      HTTP.KeepAliveTimeout:=300;
      HTTP.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:38.0) Gecko/20100101 Firefox/38.0';
      Res:=HTTP.HTTPMethod('GET', 'http://site.ru');
      strStream.LoadFromStream(HTTP.Document);
      If (Res=True) And (AnsiPos('text', LowerCase(strStream.DataString))>0) Then
            Result:=True;
Finally
      HTTP.Free();
      strStream.Free();
      End;
End;

strStream.CopyFrom(HTTP.Document, HTTP.Document.Size); // strStream.LoadFromStream(HTTP.Document);