[ViLkiN]

Код:

function MyReadFile(f:string):string;

 var Streaml: TStream;

  s:string;
begin

try

 streaml := TFileStream.Create(f, fmOpenRead);
 SetLength(s,Streaml.Size);
 Streaml.ReadBuffer(s[1], Streaml.Size);


finally

Streaml.Free;

 end;
  result:=s;

 end;

s - получившаяся строка
f - путь к файлу
для нахождения нужного слова используй стандалртную функцию PosEx