Замена букв(delphi)

[Taner]

У нас есть строки "что меняем"(edit1) и "на что меняем"(edit2) и словарик со словом.
Допустим в словаре слово bob а в заменах стоит b на i и b на w, т.е. мне надо чтобы результат был iow или woi, не выходит. Слова произвольной длины.
Мой пример меняет все на первом круге а на следующем при проверке " на наличие букв b" не находит их.

word:= memo1.Text;
ed1:= Edit1.Text;
ed2:= Edit2.Text;
for i:= 1 to length(word) do
   begin
     for i1:= 1 to length(ed1) do
       begin
         if (word[i] = ed1[i1]) then word[i]:= ed2[i1];
       end;
   end;

[Poma][a]

Косяк в том, что Вы заменяете ВСЕ букофки..

s := StringReplace(s, a, b, []);

[Taner]

Сообщение от Poma][a

Косяк в том, что Вы заменяете ВСЕ букофки..

s := StringReplace(s, a, b, []);

спасибо, попробую
сделал еще так

for i:= 1 to 10 do {количество слов в словаре}
   begin
     slovo:= word[i];
      for i1 := 1 to length(slovo) do {от 1 до длины 1го слова из словаря}
        begin
          slovo:= word[i];
            for j:= 1 to length(ed1) do {от 1 до длины поля edit1}
              begin
                slovo:= word[i];
                if slovo[i1] = ed1[j] then
                 begin
                   slovo[i1]:= ed2[j];
                   Writeln(f1, slovo);
                 end;
              end;
        end;
   end;

word уже массив

[Taner]

к сожалению мой второй вариант тоже не очень работает, а с предложенным вами я не очень разобрался, снова прошу помощи...

полученные переборы слова bob при замене bb на iw(iow)
iob
wob
boi
bow

[Poma][a]

Так-с.. Еще раз..

for i := 1 to n do begin
    Read(a, b);
    Change(s, a, b)
end;

где n - кол-во изменений в строке

procedure Change(var s : string; a, b : Char);
var
     i : Integer;
begin
     for i := 1 to n do 
            if s[i] = a then s[i] := b;
end;

или можно так :

s[Pos(a, s)] := b

Ничего не проверяю..

Объяснить еще надо?

Теперь..

полученные переборы слова bob при замене bb на iw(iow)

Тоесть Вы хотите получить
bob 2 замены b -> i b -> w
iow
Теперь генерим перестановки..? Или что?
Просто мне, в свою очередь, ничего не понятно..