SysUtils.LastDelimiter - 判断一个字符串在另一个字符串中最后出现的位置

该函数不区分大小写, 举例:
--------------------------------------------------------------------------------

var
s: string;
i: Integer;
begin
s := 'CodeDear Delphi';
i := LastDelimiter('Del',s);
ShowMessage(IntToStr(i)); {12}
end;
--------------------------------------------------------------------------------

说明：以最后一个字符为准，如果没有完全一样的，也会为其中的某个字符匹配。