Tad, спасибо, у меня строки в массиве, а массив с квадратными скобками, поэтому я и упустил эту функцию "for i := 1 to iMin do if sOp1[i] = sOp2[i] then Inc(iSame);" С выложенным if_p вместо элемента copy задача "в лоб" за 40 мсек (в 100 раз быстрее), задача с IC с упомянутой функцией в 6 раз быстрее: за 0,7 мсек, это более чем достаточно!
tsdima, и правда, есть в моих строках возможность предварительной сортировки для применения уменьшения выборки раза в четыре на основании предыдущих измерений, спасибо за "светлую мысль"
Спасибо всем, кто не оставил меня в трудную минуту, ребята, разве вы не видите, как я аж приплясываю от радости