Hola,
Pero hay que decir una cosa... supongamos esto:
Código Delphi
[-]
procedure TForm2.Button1Click(Sender: TObject);
var
t: TStringStream;
begin
t := TStringStream.Create('');
try
IdHTTP1.Get('http://casacimar.com.bo/tarea.html',t);
if Pos('Copyright ©', t.DataString) <> 0 then
ShowMessage('Eureka!');
finally
t.Free();
end;
end;
O incluso simplemente esto:
Código Delphi
[-]
procedure TForm2.Button1Click(Sender: TObject);
var
s: string;
begin
s := IdHTTP1.Get('http://casacimar.com.bo/tarea.html');
if Pos('Copyright ©', s) <> 0 then
ShowMessage('Eureka!');
end;
En ambos casos exclamaremos eureka,... y lo que se está buscando está al final del contenido en cuestión... más allá del error, lo que quiere decir que al cabo, al cabo, estamos descargando todo el HTML, salvo que no podemos mostrarlo en un Memo... por ejemplo, pero,... tal vez esto sea lo de menos, en un momento dado.
O dicho de otro modo, tal vez nos baste con el código HTML descargado, y a partir de ahí trabajar, lo mismo no es necesario mostrarlo en un Memo, sino que el compañero lo hacía por "probar", pero, en la práctica, ya digo, a lo mejor no es necesario hacerlo, porque, si se busca algo... puede buscarse directamente en la cadena que contiene el HTML, no es preciso que esté en un Memo.