[dr. F.I.N.]

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

А значение в k потом нигде не используется. Нафига оно вообще?

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

Код:

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;