Модуль: SysUtils

Описание
Функция определяет, является ли символ строки S, стоящий в позиции Index, символом-разделителем из набора символов, указанных в параметре Delimiters. Первый символ в строке имеет индекс 1. Все разделители, определенные в параметре Delimiters должны представлять собой однобайтовые символы. При работе с многобайтовыми символами функция контролирует, чтобы символ не представлял собой часть двухбайтового символа.

Пример
Данный пример определяет, стоит ли какой-нибудь из разделите-лей после слова "Казнить", если стоит то, выдается сообщение "Казнить!", если нет, то выдается сообщение "Помиловать!"

var
   S: string;
begin
   S:= 'Казнить, нельзя помиловать!';
   If IsDelimiter( '!.,-', S, 8) then
     MessageDlg( 'Казнить!', mtWarning, [mbOK], 0)
   else
     MessageDlg( 'Помиловать!', mtWarning, [mbOK], 0);
end;