function Replace (S, SearchString, ReplaceString : String) : String;
Замена подстроки в строке на другую подстроку.
P.S. заметил тенденцию в последнее время - никто не заглядывает в доки и не пользуется поиском по форуму описание Replace есть в стандатной доке vipprogr.chm
Насколько я понимаю достаточно просто иметь строку символов исключений и по ней прогонять Replace.
Например: Replace(S,'!','') - заменит все ! на пустоту
В общем задачка простейшая.