ищу исходник к программе на Delphi "Поиск текстовых файлов по ключевым словам"

[Nilamop]

сайт где исходник продают (http://www.kursovik.com/programming/190007.html)
Может у кого есть, или знает где достать...

[JeDaSe]

поиск (http://dump.ru/file/2800752)
Совсем народ обленился, написал за 7 минут

[Nilamop]

var
n,i:integer;
f:TextFile;
Ftext:string;
begin
for n := 0 to FileListBox1.Items.count-1 do
begin
AssignFile(f,FileListBox1.Items.Strings[n]);
Reset(f);
ftext:='';
while not Eoln(f) do
begin
Read(f, Ftext); // чтение и отображение одного символа
end;
if pos(Edit1.Text,Ftext)<>0 then
begin
memo1.Lines.Add(FileListBox1.Items.Strings[n]);
end;
closefile(f);

Поиск осуществляется только по первой строке, если в текстовом файле слово(по которому ищем) находится ниже, то программа не выводит файл как найденый :( Подскажите, пожалуйста.