Así por encima, el problema que le veo a leerlo por bloques, es que puedes tener la mala pata (debería ser muy mala pata, pero existe esta posibilidad xD) de que corte la frase que estas buscando, en 2 bloques diferentes... :s Y deberías controlar esto...
De forma rápida, creo que seria mejor buscarlo de golpe, pero ahí entra el inconveniente del tamaño del fichero, pero imagino que no seria problema cargar un fichero de 40 Mb o mas... ahí ya no me meto...
Cuando digo cargarlo todo de golpe, me refiero en cargarlo en un TStringList y hacer un Pos...
Ejemplo:
Código Delphi
[-]var
FicheroTexto: TStringList;
...
begin
...
Encontrado:=Pos(Cadena, FicheroTexto.Text) > 0;
...
Bueno, es lo máximo que puedo ayudarte en estos momentos.. hehe
Ah, y te recomiendo usar las etiquetas de código delphi, ayudarías mucho a que se entendiera el código, que leerlo así como lo has puesto da un poco de pereza...!
Saludos.