Ping w delphi

Czy ma ktoś może jakis kod do wysyłania pakietów (bez użycia dodatkowych komponentow jak np. tych z indy) lub link do czegoś takiego?

http://www.google.pl/search?hl=pl&q=Delphi+%2Bping+%2Bcheck&btnG=Szukaj+z+Google%21&lr=
http://www.koders.com/delphi/fidEFF6010C71A274ECB5713F3B25603F89F3421490.aspx

5 sekund googlowania ;P

Dzięki pawwell ;)

Widocznie nie szukałem dokładnie..