[kokj007]

Уважаемый lmikle, использую Ваш код, но он ничего не делает, сохраняется первоначальный вариант текста без замены:

Код:

var
  S : String;
  I, J : Integer;
  str:tstringlist;
begin
str:=tstringlist.Create;
str.LoadFromFile('1.txt');
  For I := 0 To Str.Count-1 Do
    Begin
       S := Str[i];
       For J := 1 To Length(S) Do
          If (S[J] = #30) And (J > 4) Then // Если поз-я <= 4 то -5 не получится
            Begin
               S[J-5] := 'Z';
               S[J-4] := 'Z';
            End;
       Str[i] := S;
    End;
    str.SaveToFile('2.txt');
    str.Free;
end;