--- ---

This function may come in especially handy when creating billing/financial applications where the keypad is a must. What it does is when called turns the NumLock status to "on".

    uses
      Windows;
    ...
    procedure SetNumLockOn;
    var
      KeyState: TKeyBoardState;
    begin
      GetKeyboardState(KeyState);
      if GetKeyState(VK_NUMLOCK) = 0 then begin
        KeyState[VK_NUMLOCK] := 1;
        SetKeyboardState(KeyState);
      end;
    end;