[NumLock]

Код:

  private
    { Private declarations }
    procedure Click1Click(Sender: TObject);