Модуль: SysUtils

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

Пример
Т.к. в Delphi 4 функция ExcludeTrailingBackslash не поддерживается, то для удаления из конца строки символа '\', можно использовать следующий код:

 If IsPathDelimiter( S, Length(S)) then S:=Copy( S, 1, Length(S)-1);