[lmikle]

Ну, в общем правильно. Только эф-нее будет как-то так

Код:

var
  S : String;
  I, J : Intger;
begin
  For I := 0 To StringList.Count-1 Do
    Begin
       S := StringList[i];
       For J := 1 To Length(S) Do
          If (S[J] = #40) And (J > 4) Then // Если поз-я <= 4 то -5 не получится
            Begin
               S[J-5] := '1';
               S[J-4] := '5';
            End;
       StringList[i] := S;
    End;
end;