Для корректного взятия краткого содержания меняем в скрипте на это:
//Description
curPos := PosFrom('>подробнее о перепечатке текстов<', HTML, EndPos);
if curPos > 0 then
EndPos := curPos;
AddFieldValue(mfDescription, TextBetween(HTML, '<br><p align=justify class=''review''>', '</p>', True, EndPos));