[mir546]

Код:

program Project1;
uses
  System.SysUtils,IdHTTP,IdIcmpClient;
type
idHTTP = TidHTTP;
IdIcmpClient = TIdIcmpClient;

var
    idhttp1:  TIdHTTP;
    IdIcmpClient1:  IdIcmpClient;
    {$R *.res}
begin
    IdIcmpClient1:=TIdIcmpClient.Create(nil);
    IdIcmpClient1.Host:='google.ru';
    IdIcmpClient1.ReceiveTimeout:=3000;
    IdIcmpClient1.Port:=80;
    While true do
    begin
      IdHTTP1:=TidHTTP.Create(nil);
      if (IdHTTP1.Get('http://site.ru/start.txt')='1') then
      begin
        IdIcmpClient1.Ping;
        IdHTTP1.Get('http://site.ru/info.php?ping='+FloatToStr ((IdIcmpClient1.ReplyStatus.MsRoundTripTime)/1000));
      end;
      IdHTTP1.Free;
      sleep(5000);
    end;
end.