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

сайт где исходник продают
Может у кого есть, или знает где достать...

 

поиск
Совсем народ обленился, написал за 7 минут

 

HTML:

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);

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