Модуль: SysUtils

Описание
Функция возвращает индекс последнего символа-разделителя в строке S. Символы-разделители определяются параметром Delimiters. Данная функция поддерживает работу с многобайтовыми наборами символов (MBCS), поэтому строка S может содержать двухбайтовые символы. Список Delimiters, должен состоять только из однобайтных не пустых символов.

Пример
var
   I: Integer;
begin
   I:= LastDelimiter('!;.,-', 'Казнить, нельзя, помиловать');
     // I := 16
end;