[v1s2222]

Поиск по функциям:

Код:

StringReplace
Copy
Pos
PosEx
Delete

Эти пару функций для работы со строками

ЗЫ В твоем случае замена была бы такая:

Код:

var
  s: String;
begin
  s:=Edit1.Text;
  s:=StringReplace(s, 'd#d', '&', [rfReplaceAll]);
  ShowMessage(s);
end;