При отсутствии коннекта IdHttp должен быть выключен

IdHttp.Disconnect

function CheckInternetConnection(Host: string='google.com'; Port: integer=80; Timeout: integer=1000): boolean;
  var TCP: TIdTCPClient;
begin
  TCP:=TIdTCPClient.Create(nil);
  try
    TCP.Host:=Host;
    TCP.Port:=Port;
    TCP.ConnectTimeout:=Timeout;
    try
      TCP.Connect;
      Result:=TCP.Connected;
      FMain.StatusBar1.Panels[1].Text:='Интернет: - Есть';
    except
     on  e: exception do
     begin
      Result:=false;
      FMain.StatusBar1.Panels[1].Text:='Интернет: - Нет';
      FSMS2014.IdHTTP1.Free;
      FSMS2014.IdHTTP2.Free;

      FOdin_SMS.IdHTTP1.Free;
      FOdin_SMS.IdHTTP2.Free;

     end;
    end;
  finally
    TCP.Free;
  end;
end;