[Rokuell]

>Oleg
Я писал уже выше #9, только изменить его надо, чтобы сразу проверять 60 строк, а не открывать столько раз файл:

Код:

procedure FindStringInFile(const FileName: string);
var
  fs: TFileStream;
  S: string;
  j:integer;
begin
  fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone);
  try
    SetLength(S, fs.Size);
    fs.ReadBuffer(S[1], fs.Size);
  finally
    fs.Free;
  end;
  for j:=0 to 60 do
   begin
    cmd:='test_'+IntToStr(j);
    if Pos(cmd,S) > 0 then nav.Items.Add(cmd);
   end;
end;