[BoRoV]

По таймеру открывай модально форму для ввода пароля.
В события этой формы добавь CloseQuery в нём как-то так:

Код:

CanClose := Edit1.Text = 'admin';