[lmikle]

Сообщение от dr. F.I.N.

Не внимательный

Код:

While Not EOF(F_Src) Do
    Begin
      ReadLN(F_Src,S);
      S := StringReplace(S, edt_Word.Text, rL.Strings[k], RF); //<-----rL.Strings[k]
      WriteLn(F_Tgt,S);
inc(k);
     if k = rL.Count then k := 0;
    End;

Да бред какой-то получается.
Надо точно знать задачу. Что-то там точно не просто так.