[NumLock]

Код:

Edit1.PasswordChar:=Chr(7);