[Страдалецъ]

Ну и в чем сложность? Есть функция замены текста.

Pascal
function StringReplace(const S: string; const OldPattern: string; const NewPattern: string; Flags: TReplaceFlags): string;