[Rat]

А что, Indy не канает?

На OnClick button:

Код:

IdIcmpClient1.Host="127.0.0.1";
IdIcmpClient1.Ping();

На обработчик IdIcmpClient1Reply

Код:

  if (AReplyStatus.ReplyStatusType==rsEcho)
  Label1.Caption="Комп в сети";

Ну а дальше как бы мануалы читай.