[NEBULON-77]

В базовой конфигурации Delphi 7 среди VCL компонентов INDY library есть компонент ICMP Client ( класс TIdIcmpClient )
Работать с этим классом очень просто

Вот пример задания параметров:

IdIcmpClient1.Host:='www.ru' ;
IdIcmpClient1.ReceiveTimeout:= 1000 ;
IdIcmpClient1.Ping;

Остается только обработать событие OnReply:
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
valPing:= AReplyStatus.MsRoundTripTime ;
end;

valPing и есть величина пинга в ms.

( valPing для примера - глобальная переменная , var valPing : integer ; )

Для пинговки 2го сервера , создать второй экземляр и работать с ним аналогично.