Как найти знаки препинания в Delphi?

[SASFM]

Здравствуйте добрые программисты . В языке C# есть такая процедура, как IsPunctuation , который определяет, есть ли данный символ знак пунктуация, или нет. Вопрос такой: Есть ли в языке Delphi 7 или Delphi XE7 подобная процедура (или функция) или нет?

[Аватар]

В Д7: if s[i] in ['.',',',';','?'] then знак препинания
добавь и другие в множество, потом напиши свою функцию и обращайся к ней

[SASFM]

Сообщение от Аватар

В Д7: if s[i] in ['.',',',';','?'] then знак препинания
добавь и другие в множество, потом напиши свою функцию и обращайся к ней

Значить нету стандартная функция или процедура.
Спасибо Аватар. Такого метода знаю.

[3D Hunter]

попробуйте функцию LastDelimeter('.,;:!?',<ваша строка>).
функция возвращает индекс ПОСЛЕДНЕГО вхождения ЛЮБОГО из переданных символов препинания.