function ClassFNDll.QuietPing( AHost: string = Null_Set_Str ): Boolean;
 var
  R: array of Cardinal;
  i, ATimes: integer;
  AvgMS: Double;
begin
  InitbseSettings;
  if( AHost = Null_Set_STR )
    then
      AHost := iniGL.ReadString( cntBSE_Connect, cntBSE_Host_QuietPing, def_cntBSE_Host_QuietPing );
  ATimes := iniGL.ReadInteger( cntBSE_Connect, cntBSE_Delay_QuietPing, def_cntBSE_Delay_QuietPing );

  Result := True;
  AvgMS := 0;
  if ATimes>0 then
    with TIdIcmpClient.Create( Application ) do
      try
        Host := AHost;
        ReceiveTimeout := 999; //TimeOut du ping
        SetLength(R,ATimes);
        {Pinguer le client}
        for i:=0 to Pred(ATimes) do
        begin
            try
              Ping();
              Application.ProcessMessages; //ne bloque pas l'application
              R[i] := ReplyStatus.MsRoundTripTime;
            except
              Result := False;
              Exit;

            end;
          if ReplyStatus.ReplyStatusType<>rsEcho Then result := False; //pas d'echo, on renvoi false.
        end;
        {Faire une moyenne}
        for i:=Low(R) to High(R) do
        begin
          Application.ProcessMessages;
          AvgMS := AvgMS + R[i];
        end;
        AvgMS := AvgMS / i;
      finally
        Free;
      end;
end;

  IdEcho1.Host := 'май_ИП';
  IdEcho1.Connect( 0 );
  if( IdEcho1.Connected )
    then
      Caption := 'YEEEEEEES'
    else
      Caption := 'NOOOOOOOOOO'
end;

function ClassFNDll.QuietPing( AHost: string = Null_Set_Str ): Boolean;
 var                                                                                                                                                                                  
  i, ATimes: integer;
  idCMP: TIdIcmpClient;
begin
  Result := False;                                                                                                                                                                      InitbseSettings;
  if( AHost = Null_Set_STR )
    then
      AHost := iniGL.ReadString( cntBSE_Connect, cntBSE_Host_QuietPing, def_cntBSE_Host_QuietPing );
  ATimes := iniGL.ReadInteger( cntBSE_Connect, cntBSE_Delay_QuietPing, def_cntBSE_Delay_QuietPing );
  if ATimes > 0 then begin
    idCMP := TIdIcmpClient.Create( Application );
    idCMP.Host := AHost;
    idCMP.Port := 3050;
    idCMP.ReceiveTimeout := 1000;                                                                                                                                                     
    for i := 0 to Pred( ATimes ) do begin
      try                                                                                                                                                                             
        idCMP.Ping( );                                                                                                                                                                
      except
        on E: Exception  do begin
          MessageDlg(
                      e.ClassName,
                      mtInformation,
                      [ mbOK ],
                      0
         ); 
         Result := False;
        end;
      end;
      if idCMP.ReplyStatus.ReplyStatusType = rsEcho
        then
          Result := True;                                                                                                                                                             
    end;                                                                                                                                                                                end;
end;