[NumLock]

Код:

WinExec (('ping ' + PAnsiChar(c)), SW_SHOW);