Code:
shellexecute(application.MainForm.Handle,0,'ping','-n 10 127.0.0.1','',SW_HIDE)
und die 10 ersetzt du durch die anzahl der pings...