delphi - убрать все нестандартные текстовые символы из строки

Мне нужно удалить все нестандартные текстовые символы из строки. Мне нужно удалить все символы, отличные от ascii, и управляющие символы (кроме перевода строки / возврата каретки).