[ART]

Да че тут париться. TFileStream какие - то придумали.

Код:

function StrExists(FileName,FindStr:string):boolean;
var
Str:string;
begin
AssignFile(input,FileName);
Reset(input);
 while not eof(input) do begin
  Readln(str);
  if Pos(FindStr,Str)>0 then begin
   Result:=true;
   CloseFile(input);
   exit;
  end;
 end;
CloseFile(input);
Result:=false;
end;