Поиск строки в файле

Пишу программу. Есть проблема:
Есть нетипизированный файл. Есть строка длиной 18 байтов. Нужно найти эту строку в файле (или найти максимальную длину части строки, которая встречается в файле).
Вопрос думаю ясен.
Так вот, сделал я этот поиск, но уж больно медленно он происходит. Знаю что можно его значительно ускорить. Есть ли варианты, алгоритмы?

 

AlTk
Смотрел эти алгоритм. Как Боуэра применить хз, так как он в основном для текстовых файлов применяется, а у меня нетипизированный.
Строка начинается с первого символа. И ищется до того момента, пока найденное вхождение не будет такой же длины или наибольшее меньшее. Т. е. если ищем dqwrereet, а встречается только dqwrer, то эта строка dqwrer нам подходит.

 

Ты бы пример функции привел бы
У меня пока так:

Код:

Function FindBlock(Memory: TMemoryStream;block:Tblock;len:byte;pos:integer):integer;
var
sz,i,fpos,maxpos,ppos:integer;
blocktmp:Tblock;
flen,max:byte;
ch:char;
begin
Result:=-1;
ppos:=pos-4095;
If ppos<0 then ppos:=0;
max:=3;
sz:=pos;
While sz>ppos do
begin
sz:=sz-1;
Memory.Seek(sz, soFromBeginning);
Memory.Read(blocktmp,len);
i:=0;
flen:=0;
While (i<len) and (blocktmp[i+1]=block[i+1]) do
begin
inc(i);
flen:=i;
end;
If (flen>=max) and (flen>=3) then
begin
max:=flen;
fpos:=sz;
Result:=100*fpos+max;
If flen=len then exit;
end;
end;

Memory - файл висит в памяти.
block - искомая строка.
len - длина (18)
pos - позиция в файле (ищем в 4 кб до данной позиции).

 

А и не надо. :D
Решил проблему, скорость работы увеличилась в 24 раза.