Code:
shellexecute(application.MainForm.Handle,0,'ping','-t 127.0.0.1','',SW_SHOWNORMAL);
probier das mal...