работа с циклом

[alekstav]

Здравствуйте.
Подскажите, что исправить в коде.
Программа последовательно открывает файлы txt и ищет в них ключевое слово, в случае если слово нашлось, она должна записать адрес файла в Мемо3, который она открыла, а если не нашлось, то в Мемо3 не нужно нечего записывать.
Сейчас если в файле не встретилось искомое слов, то она вместо того чтоб в Мемо3 нечего не записывать, вписывает содержимое предыдущей ячейки в которой выполнилось условие.
Например:
так хотелось бы:
С:\1\1.txt
С:\1\2.txt
С:\1\4.txt

А вот как есть:
С:\1\1.txt
С:\1\2.txt
С:\1\2.txt
С:\1\4.txt
Помогите, пожалуйста.

Delphi

var
           a_mas:array[1..SIZE] of string;// массив содержаший пути к файлам   
           i_mas: integer; 
                i:integer;
                d : string;
begin
      
     for  i_mas:=1 to 4 do 
          begin
             memo2.Lines.LoadFromFile(a_mas[i_mas]);
            for i:=0 to (memo2.lines.count-1) do  
              begin
                if pos (edit3.Text, memo2.Lines[i])<>0 then  
                d := (a_mas[i_mas]);
              end;
           Form1.Memo3.Lines.Add(d);
      
        end;
end;

[Smitt&Wesson]

Ошибка вот сдесь.
Вы пишете:

for i:=0 to (memo2.lines.count-1) do  
              begin
                if pos (edit3.Text, memo2.Lines[i])<>0 then  
                d := (a_mas[i_mas]);
              end;
           Form1.Memo3.Lines.Add(d);

А надо:

for i:=0 to (memo2.lines.count-1) do  
              begin
                if pos (edit3.Text, memo2.Lines[i])<>0 then                   
                  Form1.Memo3.Lines.Add(a_mas[i_mas]);               
              end;