Исправлен косяк с вводом пароля
TfrmCount = class(TModalForm)