[NumLock]

Код:

  MessageBox(Handle, 'MB_ICONINFORMATION', 'MessageBox', MB_OK or MB_ICONINFORMATION);
  MessageBox(Handle, 'MB_ICONWARNING', 'MessageBox', MB_OK or MB_ICONWARNING);
  MessageBox(Handle, 'MB_ICONERROR', 'MessageBox', MB_OK or MB_ICONERROR);
  MessageBox(Handle, 'MB_ICONQUESTION', 'MessageBox', MB_OKCANCEL or MB_ICONQUESTION);