Существует ли какая-либо сопоставимая функция, например Pos, которая не чувствительна к регистру в D2010 (Unicode)?

Я знаю, что могу использовать Pos (AnsiUpperCase (FindString), AnsiUpperCase (SourceString)), но это добавляет много времени обработки путем преобразования строк в верхний регистр при каждом вызове функции.

Например, в цикле 1000000 Pos занимает 78 мс, а преобразование в верхний регистр - 764 мс.

str1 := 'dfkfkL%&/s"#