[Phedor]

Не проще так (правда ограничение файла 2Гб):

Код:

var
  s: string;
  f: TFileStream;
begin
  f := TFileStream.Create(AFileName, fmOperRead);
  setlength(s, f.Size);
  f.Read(s[1], f.Size);
  f.Free;
  If ACaseSensitive
    Then Result := Pos(AText, s) > 0
    Else Result := Pos(AnsiUpperString(AText), AnsiUpperString(s)) > 0;
end;

Admin: Пользуемся тегами для оформления кода!