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

[halibad]

Ребята помогите пожалуйста реализовать такое...
Есть 2 текстовых файла (txt1 и txt2). Необходимо чтобы позаданному ключевому слову мы обращались к строке в txt1 и после этого смещались на 2 строки ниже и вставляли туда 1-ю [0] строку из txt2 и так далее до конца файла...

procedure TForm1.Button1Click(Sender: TObject);
 begin
    if opendialog1.Execute then
    richedit1.Lines.LoadFromFile(opendialog1.FileName);//подгружаем 1 файл
 end;
 
procedure TForm1.Button2Click(Sender: TObject);
 begin
    if opendialog2.Execute then
    richedit2.Lines.LoadFromFile(opendialog2.FileName);//подгружаем 2 файл
 end;
 
procedure TForm1.Button3Click(Sender: TObject);
 begin
      m:=strtoint(Edit2.text); // записываем в переменную сколько надо отступить от искомой строки
 
      Repeat
        k:=richedit1.lines.IndexOf(Edit1.text); //нашли строку по введеному Edit1.text
        richedit1.Lines[k+m]:=richedit2.Lines[z] ; // смещаемся на m количество позиций и вставляем строку с индексом z
        z:=z+1;
 
      Until richedit2.Lines.Count=z ;// До тех пор пока количество строк во 2-м richedit не уравняется с переменной z
end;

И вроде бы то что нужно, но программа топчется на одном месте , то есть вставляет поочереди все строки из richedit2 в richedit1 но в одно и тоже место (соответственно там остается последняя)...
Помогите как быть с циклом что не правильно...?

[doktor255]

А не проще выложить сюда 2 текстовых файла с исходником, и третий файл с результатом, и попросить результат получить программно? А то я пока читал задачу, чуть мозг себе не сломал.

[halibad]

Сообщение от doktor255

А не проще выложить сюда 2 текстовых файла с исходником, и третий файл с результатом, и попросить результат получить программно? А то я пока читал задачу, чуть мозг себе не сломал.

секундочку... щас все будет)

В данном случае код должен цепляться за слово "Download" и спускаться на 2 строки (за что цепляться и на сколько перемещаться вниз должен указывать пользователь)

[doktor255]

procedure TForm1.Button3Click(Sender: TObject);
var
  i, n, m: integer;
begin
  m:=strtoint(Edit2.text);
  n := 0;
  for i := 0 to RichEdit1.Lines.Count - 1 do
    if RichEdit1.Lines[i] = Edit1.Text then begin
      RichEdit1.Lines[i + m] := RichEdit2.Lines[n];
      inc(n);
  end;
end;