Это довольно просто создать самостоятельно ... и вам не нужно использовать намного больше, чем TPanel, TEdit, два TLabels и TShape.
Компонент Tshape, выровненный по левому краю внутри панели и окрашенный, прекрасно работает как простой индикатор выполнения, просто измените ширину% TShape, чтобы соответствовать% прочности. Отрегулируйте цвет и тому подобное. Хороший ресурс для% прочности - использовать один из многих примеров , найденных в Интернете. В дополнение к этой таблице, если у вас есть компонент проверки правописания, попробуйте проверить правописание результата ... если он пройдет, то он должен получить гораздо более низкий балл (по моему мнению -50 от результата).
В onChange для редактирования пересчитайте надежность пароля и отрегулируйте другие элементы управления соответствующим образом.