Обрезать строку с помощью определенного набора символов

Есть ли в Delphi функция, эквивалентная Cocoa stringByTrimmingCharactersInSet?

Что мне нужно, так это удалить все символы, включенные в набор символов, которые находятся в начале или в конце строки. Не может быть ни одного, одного или нескольких начальных или конечных строк...

Какой самый эффективный способ сделать это в Delphi?