[NumLock]

см. внимательно:

Код:

procedure TdmMain.Login(R: Boolean);