[masterhex]

Код:

function MyCharReplace(S : String) : String;
var
  I : Integer;
begin
  Result := S;
  For I := 1 To Length(S) Do
    Case S[i] of
      'a' : S[i] := 'b';
      'c' : S[i] := 'd';

    End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
S1:=Memo1.Text;
S2:= MyCharReplace(S1);
Memo2.text:= S2;
end;

Вот, и не работает, и уточните пожалуйста все таки, будет ли он к примеру "слово" менять на "слава" если вставить
'o' : S[i] := 'a'; ?